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COMENTARIOS SOBRE LAS INSTRUCCIONES EN BASIC 


Al presentar los programas, éstos se han tenido que acoplar a un ordenador 
determinado; en nuestro caso, ha sido el Spectrum. 


Sin embargo, hemos procurado utilizar instrucciones lo más genéricas posi- 
bles con el fin de que sean útiles para cualquier otro ordenador; además, al 
final de cada listado se han indicado los cambios más fundamentales que deben 
efectuarse para que sea válido en otros ordenadores. 


Vamos a indicar a continuación una serie de observaciones generales que, 
aunque no figuran como notas al listado, deben tenerse en cuenta si se quiere 
utilizar otro ordenador: 


1. Cada ordenador posee un tipo de resolución distinto. En el Spectrum la 
pantalla está dividida en 704 caracteres y cada una de estas posiciones 
está formada por un cuadrado de 8 x 8 pixels. Por tanto, las coordenadas 
de un pixel están comprendidas entre O y 255 (de izquierda a derecha) y 
entre O y 175 (de abajo a arriba). Cuando escribimos instrucciones como 
PLOT, DRAW y CIRCLE, las utilizamos atendiendo a este tipo de resolu- 
ción. 


2. Aunque siempre que aparecen cadenas troceadas se indican en notas al 
listado, vamos a insistir sobre ello, debido a que en el Spectrum el trocea- 
do de cadenas difiere mucho de la mayoría de los ordenadores. 


Siempre que aparezcan expresiones de la forma: 
A$ (X), A$ (X TO), A$ (TO X), A$ (X TO Y), AS (X, Y) 
deben sustituirse respectivamente por: 


MID$ (AS, X, 1), RIGHTS (AS, LEN A$ — X + 1), LEFTS (AS, X), 
MID$ (A$, X, Y — X + 1), MIDS (AS (X), Y, 1) 


3. Para la utilización de las instrucciones TAB y AT la pantalla se divide en 
22 filas (0 a 21 de arriba a abajo) y 32 columnas (0 a 31 de izquierda a 
derecha). 

La instrucción AT, que no todos los ordenadores poseen, nos indica la 
fila y columna donde se comenzará a imprimir. Así, p. ej., PRINT AT X, 
Y; A, escribe A en el lugar indicado por la fila X y la columna Y. 


4. En todas las funciones de biblioteca: ABS, COS, TAB, etc, en la mayo- 
ría de los ordenadores se exige el argumento entre paréntesis. En el Spec- 
trum se utilizan las funciones LN y CODE que en otros ordenadores se 
sustituyen por LOG y ASC. 
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. En la mayoría de los ordenadores, la función azar RND debe llevar argu- 


mento, aunque es totalmente ficticio. 
RANDOMIZE es una sentencia bastante generalizada, pero su función no 
es igual en todos los ordenadores. 


. En algunos ordenadores no es necesario introducir entre comillas las va- 


riables alfanuméricas almacenadas en un DATA. 


. Hay unas instrucciones que se utilizan muy a menudo en los programas y 


que únicamente sirven para mejorar la presentación en pantalla. Estas ins- 
trucciones son específicas de cada ordenador y pueden suprimirse sin al- 
terar mucho el programa; nos referimos a las instrucciones: FLASH, 
BRIGTH, PAPER, BORDER, INK, BEEP, INVERSE, OVER. 


. En algunos de los listados pueden aparecer uno de estos POKES: 
POKE 23692,255 efectúa el scroll automáticamente 
POKE 23658, 8 para escribir siempre en mayúsculas 
POKE 23609, 100 modifica la duración del chasquido. 


. Los listados se han obtenido con una impresora EPSON MX-80F/T 


y hay que hacer algunas observaciones: 
a) El símbolo * no aparece, siendo sustituido por A 
b) Los gráficos definidos por el usuario no aparecen en los listados. 


c) Los gráficos, como en todas las impresoras, presentan alguna defor- 
mación con respecto a la pantalla. 


1 
JUEGOS 


JUEGO DE BARCOS 


Construir un programa para jugar a barcos contra el ordenador. En una cua- 


drícula 10 x 10 se colocan al azar: 1 barco de 4 casillas, 2 barcos de 3 casillas, 
3 barcos de 2 casillas y 4 barcos de 1 casilla. El ordenador indicará AGUA, 
HUNDIDO ó TOCADO según haya sido el disparo; reconocerá cuándo se ha 
acabado el juego e informará del número de disparos necesarios para hundir 
la flota. 


Se debe ir presentando en pantalla el tablero de disparos. 


NOTAS: 
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1. Tener presente que no puede haber dos barcos en casillas contiguas. 


. Colocar los barcos eligiendo una casilla al azar (línea 40) y una dirección (línea 50) 


también al azar. Hay que tener en cuenta que los barcos no deben sobrepasar los 
límites de la cuadrícula. 


. Colocar primero el barco de 4 casillas, después los de 3, los de 2 y los de 1. Si se hi- 


ciera al revés, podría darse el caso de que el barco de 4 casillas no se pueda colocar. 


. Una vez colocados los barcos, asociar a las casillas que ocupan el valor 1 y a las con- 


tiguas el valor 2, para evitar superponer barcos. 


. Al jugar, si se toca un barco, esa casilla toma el valor 3 con el fin de poder distinguir 


cuando el barco está tocado o hundido. 


. La presentación en pantalla es: 


EAS 


HUNDICO 


BORDER 6: PAPER 6: INK O: CLS 

PRINT AT 10,1; "ESTOY ESCONDIENDO LOS BARCOS" 
DIM A(12,12) 

FOR K=1 TO 4 

FOR R=1 TO E 

LET I=INT (RND*10)+2: LET J=INT (RND*10)+2 
LET X=INT (¿RNDx*4)+1 

IF A(1,J)=1 OR A(1,J)=2 THEN 60 TQ 40 

IF Jo=6-K AND X=1 THEN 60 TO 120 

IF J<=7+K AND X=2 THEN 50 TD 180 

IF I>=6-K AND X=3 THEN 50 TO 240 

IF 1<=7+K AND X=4 THEN 50 TOD 300 

60 TO 40 

FOR. S=0 TO 4-k 

IF A(1,J-S)=2 THEN 60 TO 40 

NEXT S 

FOR S=0 TO 4-E 
LET A(1,J-S)=1 
NEXT S 

GO TO 350 

FOR S=0 TO 4-k 

IF A(1,J+5)=2 THEN G09 TO 40 
NEXT S 

FOR S=0 TO 4-K 

LET Atf1,J+5)=1 

NEXT S 

60 TO 350 

FOR S=0 TO 4-K 

IF A(I-S5,)=2 THEN 60 TO 40 
NEXT 5 

FOR S=0 TO 4-kE 

LET A(I-S,J)=1 

NEXT S 

GO TO 350 

FOR S=0 TO 4-k 

IF A(1+5,0)=2 THEN 60D TO 40 
NEXT Ss 

FOR S=0 TO 4-K 

LET A(1+5,3)=1 

NEXT Ss 

FOR P=2 TO 11 


?' FOR O=2 TO 11 


IF A(P,E)=1 OR A(F,0)=2 THEN 50 TO 3806 
IF A(P+1,0)=1 OR AtfP+1,0-1)=1 OR A(F+1,0+1)=1 O 


R A(P,0-1)=1 OR A(P,0+1)=1 OR A(P-1,0-1)=1 OR A(P-1, 
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2)=1 
380 
390 
400 
410 
415 
417 
420 
430 
440 
450 
460 
470 
480 
470 
4735 
300 
310 
311 


319 


OR A(P-1,0+1)=: THEN LET A(P,0)=2 
NEXT Q 

NEXT P 

NEXT R 

NEXT E 

CLS 

REM DIBUJO DE LA CUADRICULA 

FOR Z=0 TO 10 

PLOT 48,159-8*Z: DRAW 80,0 

PLOT 48+8*Z,159: DRAW 0,-80 

NEXT Z ? 

FOR Z=1 TO 10 

PRINT AT Z+1,45Z 

PRINT AT 0,Z+55Z 

NEXT Z 

REM COMIENZO DEL JUEGO 

LET E=0: LET F=0 

INPUT "DISPARA; PRIMERO FILA: "su 

IF U<1 OR U>10 OR U<>INT U THEN 50€ TO 519 
INPUT "AHORA COLUMNA: "3V 


316 IF V<1 OR V>10 OR V<>INT V THEN 60 TO 515 

5318 IF AtU+1,VY+1)=3 THEN GO TO S10 

320 LET E=E+1 

330 IF A(U+i1,V+1)=0 OR A(U+1,V+1)=2 TREN PRINT AT 
U+1,V+35" ": PRINT AT 18,83"AGUA": FA 
USE 100: PRINT AT 168,83" “2 GO TO Si0 

540 IF AfU+1,V+1)=1 THEN PRINT AT 6YU+1,V+53" * 


345 


IF (A(U+1,V+2)=2 OR A(U+1,V+2)=0) AND (AJ+1,V5 


=2 OR A(U+1,V)=0) AND (A(U+2, V+1)=2 OR A1U=-2, V+1)=0) 


AND 
pr 

560 
970 
580 
370 
£00 
510 
620 


(AU, V+1)=2 OR A(U,V+1)=0) THEN GO TO 9060 

IF A(U,V+1)=1 THEN 60 TO 3800 

IF A(U+2,V+1)=1i THEN GO TO 800 

IF A(U+i,V)=1 THEN GO TO 800 

1F A(U+1,V+2)=1 THEN 0 TO 800 

IF Ux<=1 THEN 60 TO 630 

1F AU, V+1)=3 AND A(U-1,V+1)=i THEN 60 TG 806 
IF Ux=2 THEN 60 TO 630 

IF AU, V+1)=3 AND At(U-1,V+1)=3 AND AtU-2,V+1)=1 


THEN 60 TO 800 


£30 
646 
O 


5630 
560 


IF U>=9 TAEN GOD TO 670 
IF A(U+2,V+1)=3 AND AtU+3, V+1)=1 TREN 60 TO 80 


1F U>=8 THEN EJ TO 670 
IF AUY+2,V+1)=3 AND AtUL+3,V+1>=3 AND A(U+4,V+1> 


.=1 THEN 50 TO 2800 


57% 
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1F V<¿=1 THEN 50 TO 7i0 


680 IF A(U+1,V)=Z AND A(L+1,V-1)=1 THEN 60 TO 806 
690 IF V<=2 THEN 60 TO 710 

700 1F A(U+1,V)=3 AND A(1U+1,V-1)=3 AND A(U+1, V-2)=1 
THEN GO TO 8009 

710 I1F V>=9 THEN 609 TO 900 

720 IF A(U+i,V+2)=3 AND A(U+1,V+3)=1 THEN 60 TO ES 
0) 

730 1F V>=8 THEN 50 TO 900 

740 1F A(U+1,V+2)=3 AND A(U+1,V+3)=3 AND AtU+1, V+4) 
=1 THEN 60 TO 800 

750 GO TO 900 

800 LET A(U+i1,V+1)=3: PRINT AT 18,85"”"TOCADO": PAUSE 


100: PRINT AT 18,893" "e LET F=F+1: 6D TODO S10 
900 LET A(U+1,V+1)=32 PRINT AT 18,8; "HUNDIDO": PAUS 
E 100: PRINT AT 18,83” e LETS P=P+1 


910 IF F<20 THEN 60 TO 3510 
920 IF F=20 THEN PRINT AT 20,15"HAS UTILIZADO ";5Es 
" DISPAROS": STOP 


NOTAS AL LISTADO: 


19 En la línea 10 dimensionamos la variable A 12 x 12, en lugar de 10 x 10, con el fin 
de poder generalizar el proceso, que se sigue a continuación en el programa, a los bar- 
cos colocados en los límites de la cuadrícula. 


21 De la línea 417 a 490 se dibuja la cuadrícula que sirve de base para jugar. Si su orde- 
nador no es el Spectrum deberá cambiarlas. 
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JUEGO DEL NIM 


El juego del Nim, también llamado Marienbad (título del film en que apare- 


ce un juego similar), se rige por las siguientes reglas: 


Hay varios montones de monedas o cerillas y en cada montón puede haber 


un número cualquiera de ellos. Juegan alternativamente dos jugadores tomando 
cada uno las monedas que desea, incluso todas, del montón que elija, pero cada 
vez sólo de un montón. Gana el jugador que retira la última moneda. 


Construir un programa para jugar contra el ordenador. Se preguntará el 


número de montones (p. ej. de 3 a 8) y quien inicia el juego; obteniéndose al 
azar el número de objetos de cada montón (p. ej. como máximo 7 objetos). 


NOTAS: 
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1. El siguiente algoritmo permite ganar siempre (excepto en un caso) al jugador que ini- 


cia el juego: 
Escribir los objetos que hay en cada montón en sistema binario, uno bajo otro; p. ej. 
si tenemos 3 montones con 5, 4 y 6 objetos tendremos: 

101 (5 en binario) 

100 (4 en binario) 

110 (6 en binario) 


La estrategia a seguir para ganar es dejar al otro jugador una posición en que el nú- 
mero de 1 de cada columna sea par; en nuestro ejemplo tomaríamos 3 objetos del 
primer montón: 

010 (2 en binario) 

100 (4 en binario) 

110 (6 en binario) 


Por tanto, siempre gana el jugador que inicia el juego excepto en el caso de que ini- 
cialmente todas las columnas tengan un número par de 1. 


. Se pueden considerar tres grados de dificultad: en el 1% el ordenador tomará los ob- 


jetos y los montones al azar; en el 39 seguirá el algoritmo ganador, y en el 29 simul- 
tanea el azar y el algoritmo. 


3. La presentación en pantalla será: 


Marton 


1 
pa] Ga 
a CO 
AL IEC TA 
E UA 
e ECN 0D DC 
= IICA 
2 HA. QUTTACO == CEL MONTOonNn Ss 
4 DATA 451,5, 3,615,7,7 
S DATA 7,6,56,6,5,2,4,2 
6 DATA 7,5,6,3,5,5,4,% 
7 DATA 4,4,5,.4,6,4,7,4 
8 DATA 7,.3.6,1,3,3,2,1 
9 DATA 2,2,6,2,3,2,7,2 
10-DATA bli. bois l 
18 POKE 236509,106: POKE 23558,8 


19 BORDER S: PAPER 3: INK O: CLS 

20 PRINT TAB 133"NIM": PRINT : PRINT 

22 PRINT "1.—-SOLO SE PUEDEN RETIRAR OBJE- TOS DE U 
N MONTON EN CADA JUGADA": PRINT : PRINT 

23 PRINT "2.-SE FUEDE SELECCIONAR NIVEL DE DIFICUL 
TAD": PRINT : PRINT 

24 PRINT ”3.—GANA El JUGADOR QUE RETIRA El ULTIMO 
OBJETO": PRINT : PRINT 

50 INPUT "GRADO DE DIFICULTAD (1-3) “¿DI 

S5 IF DI<i OR DI>3 OR INT DI<>DI THEN 650 TO 50 

60 INPUT "NUMERO DE MONTONES (3-8) “¿Nz CLS 

65 LET MC=5 

70 IF N<3 OR N>S OR N<>INT N THEN G0 TO 40 

80 DIM C(N): DIM D(N): DIM B(N,3): DIM S(3) 

90 PRINT AT 1,03"MONTON OBJETOS  " 

100 FOR X=1 TO N 

110 LET C(X)=INT (RND*7)+1: LET D(X)=C1X) 

120 60 SUB 500 

140 PRINT AT 2x*X+1,153X3" o 


150 FOR W=1 TO C(X): PRINT "0"5: NEXT Y 
15 


160 NEXT X 

200 INPUT "QUIEN EMPIEZA?:i-TU — 2-2X "sE 

210 IF E>2 OR E<1. OR EX>INT E THEN 60 TO 200 

220 1F E=2 THEN 60 TO 50 

225 REM JUGADOR 

230 INPUT "DAME LA FILA "3X 

239 PRINT AT 20,05" ES 
236 1F X>8 OR X<=0 THEN GC TO 230 

240 IF X<1 OR X>N OR X<>INT X OR £EtxX)=0 THEN $60 TC 
230 

250 IMPUT "CUANTAS RMIITAS? "33€ 

250 IF <1 OR 2>7 OR QO<> INT QA OR 22C0(%) THEN. 60 72 
2530 

270 60 SUB 5390 

320 1F Sil+t5t2+ 51320, TREN 060 1D 33960 

3 PRINT AT 20,13"ESTA VEZ PAS GANADO PERC LA 
PROXIMA..... A 

340 INFUT "JUSAMOS OTRA? (S/N "3R% 

341 IF R$z>"S” AND REX<S"N" AND R3S<>"SI" AND RE<S"NO 


" THEN $50 TO 23490 


342 
43 
3300 
3534 
300 
356 
597 
360 
361 
362 
365 
5370 
371 
372 
373 
380 
3839 
387 
3290 
739 
420 
430 
5X 
450 
451 
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IF R$="SI" OR R$="S" THEN RUN 


STuP 
REM JUEGA ZX 
LET P=0 


FOR X=1 TO 3 

1F S(1X3)/2=INT (S1X3/2) THEN LET P=P+2" (X-1) 
NEXT X 

IF MES1 THEN 6560 710 37 

1F P=7 THEN 50 TOD 4S53 

1F Dl=1i THEN  1F INT (RND*2)<1 THEN SO TO 493 
IF DI=2 AND INT (RNDx33<1 THEN $50 TO 495 
FOR X=1 TO N 

RESTORE P+4 

FOR Y=1 TO 4 

1F C(X)=0 THEN $69 TC 290 


READ A,B 

IF A=C(X) THEN 650 TO 420 
NEXT Y 

NEXT X 

STOP 


Go SUB 550 
PRINT AT 20,03"ZX HA QUITADO "303" DEL MONTON ” 


IF S(1)+S(2)+S(3)=0 TEEN 50 TO 445 
60 TO: 250 


465 
470 


INPUT "HE GANADO, JUGAMOS CTRA? (S/N)"¡R$ 
IF R$<>"S" AND R$<>"N" AND R$:<>"SI" AND R*<>"NO 


" THEN 609 TO 4485 


480 IF R$="SI" OR R$="S" THEN RUN 
490 STOP 

495 REM JUEGA AL AZAR 

496 LET X=INT (RND*N»+1: 1F C(X)=0 THEN 50 TO 495 
497 LET Q=INT (RND*C(X))+1 

498 GO TO 420 

5060 REM SUMAS 

S10 FOR Y=1 TO 3: LET B(X,Y)=D(X)-2* INT (D(X)/2)2 L 
ET D(X)=INT (D(X)/2)2 LET S(Y)=S(Y)+B(X,Y):2 NEXT Y 
520 RETURN 

350 REM BORRADO DE OBJETOS 

555 LET D(X)=CtX)-0: FOR Z=1 TO 32 LET S(Z)=S(Z)-B( 
X,Z):2 NEXT Z 

550 60 SUB 500: LET C1X)=0(X)-Q 

570 PRINT AT 2%X+1,13X3" eo ds 


330 FOR W=i TO CiX): PRINT "O": NEXT WN: PRINT * 


AE BEER Das Oo 


290 1F C(X)=0 THEN LET MC=MC-1 
500 RETURN 


NOTAS AL LISTADO: 


39 
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En la línea 18 el primer POKE cambia la duración del chasquido que se produce al 
presionar una tecla. 


Las variables empleadas han sido: N (número de montones), Q (objetos a quitar), 
C (X) (n0 de objetos del montón X), D (X) (variable auxiliar), B (X, Y) (dígito Y 
del montón X), S (1) (suma de los dígitos de orden | de todos los montones, | =1, 
2, 3). Para seguir el algoritmo debemos colocar los C (X) en sistema binario. 


Como se pueden presentar muchas situaciones diferentes se ha ideado un procedi- 
miento para abreviar y no programar demasiados condicionales. Consiste en estudiar 
las 8 posibilidades que obtenemos según la paridad de S (1), S (2) y S (3) (líneas 354, 
355, 356, 358) 


S (3) S (2) S (1) P 
par par par 7 
par par - impar 6 
par impar par 5 
par impar impar 4 
impar par par 3 
impar par impar 2 
impar impar par 1 
impar impar impar 0 
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18 


ya 


pa 


Cuando P = 7 el ordenador juega al azar; en los restantes casos, remitimos al ordena- 
dor a los datos que figuran en las líneas iniciales. El número de línea de DATA que 
debe considerarse en cada caso, se selecciona mediante el RESTORE condicional que 
figura en la línea 365. 


Con el bucle que empieza en la línea 372 se leen parejas de números A y Q compa- 
rándose con C (X). Cuando C (X) = A debemos quitar Q objetos de la fila X. 


GOLF 


Vamos a jugar al GOLF. En pantalla aparecerá una pista imaginaria y en ella 
un hoyo al azar. 


Empezaremos a jugar a partir del extremo izquierdo de la pista y, dando la 
velocidad y ángulo de tiro, describiremos la trayectoria de la pelota (según las 
ecuaciones del tiro parabólico). Si no conseguimos hoyo se tirará de nuevo des- 
de la posición de caída. 


Una vez conseguido el hoyo, se indicará el número de golpes efectuados; 
por ejemplo: 


HOYO 3 GOLPES 


NOTAS: 


1. Las ecuaciones del tiro parabólico, por las que se rige la trayectoria, son: 


x=v+*cos At y=v+* sen A-t-49-t? 


2. A partir de las ecuaciones anteriores se obtiene el alcance máximo: 
eat a sen 2A 
9,8 
3. El tiempo que tarda en caer la pelota viene dado por: 
2 v:senA 
9,8 


4. Si la pelota sale fuera de la pantalla se presentará un mensaje de “FUERA DE PIS- 
TA”, volviendo a lanzarse desde el punto de caída anterior. 


t= 
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9 BORDER 1: PAPER 1: INK 7: CLS 
10 FOR M=0 TO 31: PRINT AT 21,M3 INK 43" ": NEXT M 
60 LET N=0: LET XO=0 
70 FOR I=0 TO 31 
80 PRINT AT 20,13" ” 
90 NEXT 1 
100 LET Z=INT (RND*29)+2 
110 OVER O: PRINT AT 20,Z+13" " 
120 INPUT "VELOCIDAD (>15) "3Vz IF V<=15 THEN 60 T 
O 120 
125 INPUT "ANGULO EN GRADOS (<90) "53M: 1F A>=90 THE 
N 60 TO 125 
130 LET A=A*P1/180 
140 IF X0>8x*(Z+2) THEM LET A=PI-A 
150 IF XO<>0 THEN CIRCLE OVER 13X0,153,2: 
1560 LET N=N+1 
170 FOR T=0 TO 2*Vx*SIN A/9.8 STEP .5 
180 LET X=2+Vx*CO0S AX*T+XO 
190 LET Y=V*SIN A*T-(9.8*T"2)/2 
197 IF (X>=253 OR X<=1) AND x0=0 THEN PRINT AT 10, 
53 "FUERA DE PISTA": PAUSE 200: PRINT AT 10,15; OVER 
05” ": 60 TO 120 
200 IF X>=253 OR X<=1 THEN PRINT AT 10,15; "FUERA D 
E PISTA": PAUSE 200: PRINT AT 10,155 OVER 03" 
"z CIRCLE X0,15,2: 60 TO 120 
205 IF Y>=159 AND x0=0 THEN PRINT AT 10,15; "FUERA 
DE PISTA": PAUSE 200: PRINT AT 10,153 OVER 03" 
"z GO TO 120 
210 1F Y>=159 THEN PRINT AT 10,15; "FUERA DE PISTA" 
PAUSE 200: PRINT AT 10,155 OVER 03" " 
CIRCLE X0,15,2: GO TO 120 
220 PLOT X,Y+16 
230 BEEP 1/(2x*T+1),T 
240 PLOT OVER 15X,Y+16 
250 NEXT T 
260 LET XO=X 
270 CIRCLE X0,15,2 
280 IF XO0<8*17+2) AND 8*(74+2)-X0<5 THEN PRINT AT Ss 
,15;3 "HOYO "¿N5" GOLPES": PAUSE O: RUN 
285 IF XO0>8*(7+1) AND XO-8*(7+1)<5 THEN PRINT AT 5 
,153 "HOYO "3N53" GOLFES": PAUSE O: RUN 
290 60 TO 120 
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LASER 


Tenemos un campo de tiro como indica la figura: 


DISPAROS PUunHTCcs pS 


10 = S EN 
Lanzaremos un rayo desde la plataforma de lanzamiento situada a la izquier- 
da (cambia de posición tras cada tiro). 


Se dará el ángulo de tiro (positivo o negativo según si el lanzamiento es 
hacia arriba o hacia abajo) y el rayo deberá alcanzar una de las casillas con pun- 
tuación. 


Si el rayo topa con los obstáculos centrales o si va al fondo del campo no 
se puntúa. 


DISPAROS 7 PINTOS Le 
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NOTAS: 


1. Se preguntará inicialmente el número de disparos a realizar. 
2. Como se observa en las figuras se irá señalando el número de disparos y la puntua- 
ción.. 


3. El estudio de la trayectoria se efectúa tomando en cuenta la tangente del ángulo y 
el punto de lanzamiento. 


S BORDER S: PAPER S: INK 0: CLS 
10 LET N=0: LET S=0 
11 INPUT "CUANTOS DISPAROS QUIERES HACER "3P 
15 PLOT 32,32: DRAW 192,0: DRAW 0,112: DRAW -132,0 
DRAW 0,-112 
20 FOR K=0 TO 3 
30 PLOT 128,32+32x*K: DRAW 0,16 
40 NEXT K 
50 FOR K=1 TO 3 
50 PLOT 128+K*24,32: DRANW 0,-8 
70 PLOT 128+kK*24,144: DRAW 0,8 
S0 NEXT K 
90 FOR K=1 TO 4 
100 PRINT AT 19,14+3*k3 12-2%k 
110 PRINT AT 2,14+3*k3 12-2%k 
120 NEXT K 
130 LET Z=INT (113%RND)+32 
140 PLOT 32,Z: DRAW -5,0 
145 IF N=P THEN PRINT FLASH 1387 4,135 "PUNTOS": P 
RINT AT 8,153 FLASH 135: PAUSE 0: RUN 
145 PRINT AT 0,23 "DISPAROS": PRINT AT 0,113N: PRINT 
AT 0,20; "PUNTOS": PRINT AT 0,28:S 
150 LET N=N+1 
160 INPUT “DAME EL ANGULO DE TIRO EN GRADOS "¡A 
70 LET A=Ax*P1/180 
180 1F A%0 THEN .60 TO 2860 
190 FOR K=0 TO 3 


200 1F Z+9S%TAN A>3Z2+325K AND Z+RFEGFTAN ALAS+AIZHK>C TH 
EN PLOT 32,Z: DRAW 95,76x*TAN Az: PAUSE 100: PLOT 32, 
Z:z DRAW  INWERSE 137%6,786*TAN A: PLOT 232,Z: DRAN  —INY 
ERSE 13-5,0: PLOT 123,Z+296*TAN A: 69 70 130 

210 NEXT K 
- 215 1F 32+1(1149-Z)/TAN A=128 THEN PLOT 32,Z: DRAMW 
(144 


—=Z3)/TAN A, 144-Z: PAUSE 100: PLOT 32,Z: DRAN INV 


2d 


ERSE 13 (144-Z)/TAN A,144-Z: PLOT 32,Z: DRAW  INVERSE 

13-5,0: PLOT 32+(144-Z)/TAN A,144: 60 TO 130 

220 IF Z+192*TAN A<144 THEN PLOT 32,Z: DRAW 192,19 
2*TAN Az PAUSE 100: PLOT 32,7: DRAW  INVERSE 1;192,1 
S2*TAN Az PLOT 32,7: DRAW  INVERSE 13-5,0: PLOT 224, 
Z+192*TAN Az: GO TO 130 

230 PLOT 32,Z: DRAW (144-Z)/TAN A,144-Z: PAUSE 100: 

PLOT 32,Z: DRAW  INVERSE 13 (144-Z)/TAN A,144-Z:z PLO 
T 32,7: DRAW  INVERSE 15-5,0: PLOT 32+(144-Z)/TAN A, 
144 

240 FOR K=0 TO 3 | 

250 IF 32+1144-Z)/TAN A>128+24x*K AND 32+(144-Z)/TAN 
Ac=152+24x*kK THEN LET S=5+10-2x*k 

260 NEXT K 

270 60 TO 130 

280 LET A=-A 

290 FOR K=0 TO 3 

200 IF Z-96*TAN A>32+32%K AND Z-96*TAN ALAB+32%K TH 
EN PLOT 32,2: DRAW 96,-96*TANM A: PAUSE 100: PLOT 32 
,7: DRAW  INVERSE 1:396,—-96*TAN Az PLOT 32,Z: DRAW 1 
NVERSE 13-5,0: PLOT 128,Z-296*TAN Az: 60 TO 130 

310 NEXT K | 

315 IF (2-32)/TAN A<=96 THEN PLOT 32,Z: DRAW (2-32 
)/TAN A,32-Z: PAUSE 100: PLOT 32,Z: DRAW  INVERSE 1; 
(2-32) /TAN A,-7+32: PLOT 32,Z: DRAW: INVERSE 15-5,0: 
PLOT 32+(2-32)/TAN A,32: GO TO 130 

320 1F 192*TANM A<72-32 THEN PLOT 32,Z: DRAW 192,-19 
2%TAN Az PAUSE 100: PLOT 32,Z: DRAW  INVERSE 1;192,- 
192% TAN Az: PLOT 32,7: DRAW  INVERSE 15-5,0: PLOT 224 
,¿Z-192x* TAN Az 60 TO 130 

330 PLOT 32,7: DRAW (Z-32)/TAN A,32-Z: PAUSE 100: P 
LOT 32,Z: DRAW  INVERSE 13 (2-32)/TAN A,32-Z: PLOT 32 
,2: DRAW  INVERSE 153-5,0: PLOT 32+(Z-32)/TAN A,32 

340 FOR K=0 TO 3 | 

350 1F 32+(2-32)/TAN A>128+24*K AND 32+1Z-32)/TON A 
¿=152+24*K THEN LET S=S+10-2x*K 

360 NEXT k 

370 60 TO 130 
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JUEGO DEL QUITPAL 


Hacer un programa para jugar al QUITPAL contra el ordenador. 


El jugador indicará el número de objetos (p) que tenemos y el número má- 
ximo (m) de ellos que puede tomar cada jugador en su turno. Cada uno de los 
dos jugadores tomará alternativamente 1, 2, 3, ... ó m objetos según su elec- 
ción. Pierde el jugador que deba llevarse el último objeto. 

Como el jugador ha elegido p y m, le permitiremos jugar al ordenador en 
primer lugar. 


NOTAS: 


1. El algoritmo ganador es el siguiente: 
— En la primera jugada debe quitar el número de objetos que deje un montón con 
un número igual a un múltiplo de m + 1 más uno. 
— Siel otro jugador quita K objetos, el ordenador quitará m — K +1. 


2. Hay un caso en el que el ordenador no gana, si no es por fallo del otro jugador: cuan- 
do la condición 1 no se puede cumplir. En este caso quitará un número al azar. 


5 BORDER 5: PAPER S: INK O: CLS 
10 POKE 23658,8 


20 LET z=0 

30 PRINT AT 11,8; "OBJETOS: "¿AT 15,83"ZX JUEGA: "3 

350 INPUT "DAME EL NUMERO DE OBJETOS: (MINIMO 
SS "jp 

60 INPUT "PODREMOS QUITAR COMO MAXIMO? (MINIMO 
2 "jm 


7O IF P<S OR P<=0 OR M<2 OR M>=P THEN 60 TO SO 

FS PRINT AT 11.173P35" * 

30 REM JUEGA ZX 

85 PAUSE 50: LET IN=0 

90 FOR X=1 TO M 

100 1F P-X-INT ((P-X)/ (M+1)+.5)*(M+1)=1 THEN GO TO 
140 

110 NEXT X 
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120 REM JUEGA ZX AL AZAR 

123 LET Z=1: LET IN=1 

130 LET X=INT (RND*MD+12 1F P<X THEN 50 TO 130 
140 LET P=P-X: PRINT AT 11,175P5" "5AT 15,173X3" "s 
BEEP 1,6 

150 IF P=0 THEN $609 TO 2909 

150 REM JUGADOR 

155 PAUSE 50: PRINT AT 15,173" ” 

170 INPUT ("CUANTAS QUITAS? (MAXIMO "3M3") ")3Y 
180 IF Y=0 OR YM OR Y>P THEN 650 TQ 170 

190 LET P=P-Y2 PRINT AT 11,175P5" "567 15,173” "> 
BEEP 1,3 

290 IF P2>06 THEN 650 TO 240 

210 INPUT "TE HE GANADO , JUGAMOS OTRA? (S/N) ";as 
220 IF A$="S" OR A4$="SI" THEN RUN 

230 STOP 

240 REM ZX JUEGA 

242 FAUSE 50: IF IN=1 THEN 650 TO 80 

245 1F Z=1 THEN LET Z=0: GO TO 90 

250 LET X=M-Y+1 

260 IF X>P THEN G0 TC 130 

270 LET P=P-X 

2753 PRINT AT 11,1753P3" "58T 15,173X3" ": BEEP 1,6 
280 IF P:2>0 THEN GOD TO 160 

290 INPUT "HAS GANADO. JUGAMOS OTRA? (S/N) "3As 
300 1F A$="S" OR At="SI" THEN RUN 
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TIRO OBSTACULIZADO 


En la parte inferior de la pantalla aparece una persona y también, a su iz- 
quierda, un obstáculo. Por ejemplo: 


VELOCICA SS AMSULO Es 
INTENTO MUM. SS 


Dando ángulo y velocidad, lanzamos un proyectil desde el extremo izquier- 
do que, salvando el obstáculo, deberá acertar a la persona (siguiendo la trayec- 
toria de tiro parabólico). 


La posición de la persona y la altura del obstáculo se obtendrán al azar, exi- 
giéndose la condición de que siempre exista un ángulo y una velocidad que per- 
mitan alcanzar el objetivo. 


NOTAS: 


1. Las ecuaciones del tiro parabólico son: 
X=V+*cosB + T Y=V-+*senB+T -49+ T? 
2. A partir de las ecuaciones anteriores pueden obtenerse el alcance máximo y la altura 
máxima: 
Xmáx = V? - sen 2B / 9,8 Y max = V? * sen?B / 19' 
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3. Si el alcance que se debe obtener es A, como la altura máxima permitida en nuestro 
caso es de 157, el ángulo y la velocidad correspondientes a la trayectoria de altura 
máxima son: 


U=ATN (628/A) línea 120 
V =SOR (314.9,8) /sin U línea 130 


4. Si la altura del obstáculo es N y su distancia al punto de disparo es M, únicamente se 
podrá alcanzar el objetivo si: 
M + V? + sin (2U) — 9,8 M? 
2 + V? - cos? U 
siendo U y V los obtenidos en el apartado anterior. 


N < línea 140 


Para tener una cierta holgura no se considera N sino N—8 (línea 145). 

5. En pantalla aparecerán los datos del disparo realizado anteriormente, así como el 
número de intentos efectuados hasta entonces. Si el disparo da en el obstáculo o se 
sale fuera de la pantalla se imprimirán mensajes que lo indiquen. 


9 BORDER 3: PAPER S: INK O: COLE 
10 FOR X=0 TO 7 

11 READ A 

12 POKE USR "D"+X,A 

13 NEXT X 

14 DATA 0,0,0,24,24,0,0,0 

15 FOR X=0 TO 7 

16 READ A 

7 POKE USR "E"+X,A 

18 NEXT Xx 

19 DATA 0,126,66,90,790,665,126,0 
20 FOR X=0 TO 7 
21 READ A 
22 POKE USR "F"+X,A 

3 NEXT X 
24 DATA 153,126,66,219,219,66,126,153 
25 FOR X=0 TO 7 
26 READ A 

27 POKE USR "N"+X,A 
28 NEXT X 
29 DATA 0,24,24,255,24,24,36,36 

30 FOR K=0 TO 31 
50 PRINT AT 20,K3 INK 23" " 

70 NEXT K 
80 LET Z=INT (RND*19)+10: PRINT AT 19,73" * 
30 LET Y=INT (Z*RND)+1 


8 RESTORE 
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100 LET H=INT (15*RND)+1 | 
110 LET A=2*8: LET M=Yx*8: LET N=Hx*8 

120 LET U=ATN (5428/A) 

130 LET V=SOR (314x9.8/(SIN U*XSIN U)) 

140 1F N>=(MeV"“2x*SIN (2%U)-9.BxM"2) / (242005 UXCO 
S U») THEN G0 TO 90 

145 LET N=N-8 

150 PLOT M,16: DRAW 0,N 

1560 LET P=0 

180 INPUT "VELOCIDAD "5: INPUT "ANGULO EN SRADOS « 
<90) "3B: PRINT AT 0,0; "VELOCIDAD "5V, "ANGULO "3B 
185 LET P=P+1: PRINMT AT 2,03" INTENTO NUM. “3P: IF 8 
*=90 THEN $0 TO 180 

190 LET B=Bx*P1/180 

200 FOR T=0 TO 2xV*SIN B/9.8 STEP .5 

210 LET X=4Yx*C0S Bx*T 

220 LET Y=V*SIN Bx*T-9.8*T1-"2/2+16 

230 IF X>=M AND M*TAN B-9.S8*M"2/ (2%Y"2x*C003 B*COS B) 
¿N THEN  PRINT FLASH 1547 2,15; "ELEVA EL TIRO": PAU 
SE 200: PRINT AT 2,153" "¿ PLOT M,16: DR 
AW 0,Nz 69 TO 180 

240 1F X>=254 OR Y>=173 THEN PRINT FLASH 15AT 2,1 
55 "FUERA DE PISTA": PAUSE 200: PRINT AT 2,153" 

"z GO TO 180 

250 CIRCLE X,Y+1,1 

260 BEEP .1,T 

270 CIRCLE OVER 15X,Y+1,1 

280 NEXT T 

290 1F ABS (V*V*SIN (2*B)/9.3-A4-4)<=4 THEN PRINT A 
T 19,723" ": PAUSE 10: PRINT AT 19,273" ": PRINT AT 19 
223" "2 PRINT FLASH 153A8T 2,17; "DESTRUIDO ": PRINT A 
T 21,10;"PULSA SPACE " : RANDOMIZE USR 1300: RUN 

200 60 TO 180 


NOTAS AL LISTADO: 


12 Se han definido 4 gráficos (líneas 10-29) que se obtienen pulsando las teclas D, E, 
F y N con modo G, aunque en el listado no figuran dichos gráficos. 


22 En lla línea 290, la instrucción RANDOMIZE USR 1300 sólo sirve para obtener efec- 
tos visuales. Su efecto desaparece pulsando SPACE. 


LAS 7 TARJETAS 


Pensaremos un número comprendido entre 0 y 99 y el ordenador mostrará 
las 7 tarjetas siguientes: 
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Deberemos responder si nuestro número se encuentra en cada una de las 
tarjetas e inmediatamente el ordenador indicará el número pensado. 


NOTAS: 


1. Para adivinar el número basta sumar el primer número de cada una de las tarjetas 
que lo contiene. Se basa ésto en la expresión en base 2 de cualquier número; así, 
si el número es 24, como 24 = 11000, resulta que 24 se halla en las tarjetas 4 y 
5 y no en las demás. 


2. El juego puede ampliarse fácilmente a números mayores de 100. 


3. Las tarjetas se han impreso con distintos procedimientos atendiendo a las rela- 
ciones existentes entre sus números. 


aL 


10 POKE 23658,8: LET NUM=0 

15 PAPER 7: INE O: CLS 

20 PRINT AT 5,03 "PIENSATE UN NUMERO DEL 1 AL 99" 

25 PAUSE 10 

ZO PRINT AT 10,7; "PULSA UNA TECLA" 

33 PAUSE 1: 1F INKEYs="" THEN BORDER 1: BORDER 2: 

BORDER 3: BORDER 4: BORDER S: BORDER 6: BORDER 7: B 
ORDER O: 60 TO 33 

40 PAPER O: INE 7: CLS 

45 PRINT TAB S; INVERSE 13"TARJETA NUMERO 1" 

50 FOR Y=1 TO 5: FOR X=1 TO 10: PRINT AT 2*X,6x*(Y- 
1)32x*X-1+(Y-1)*20: NEXT Xz NEXT Y: S0 SUB 500 

50 1F As$="S" THEN  LET NUM=NUM+1 

ES PRINT TAB 45 INVERSE 15 "TARJETA NUMERO 2" 

70 FOR Y=1 TO 5: FOR X=1 TO 53: PRINT AT 4x(X-1)+2, 
6% (Y-1) 3 4% X-2420% (1-1): PRINT AT 4%X,6* (Y-1)34%X-1+2 
O*(Y-1):3 NEXT X: NEXT Y: 60 SUB 500 

50 IF A$="S" THEN  LET NUM=NUM+2 

90 PRINT TAB 43 INVERSE 13 "TARJETA NUMERO 3": FEI 
NT 

100 FOR X=1 TO Z: FOR Y=0 TO 3: READ A,3B,C,D,E,F: P 
RINT Ex(X-1)+A+Y3TAB 4339*(X-1)+B+Y3 TAB 938% (X-1)+C+Y 
¡TAB 1438*(X-1)+D+Y3 TAB 17938x*(X-1)+E+Y3TAB 2438* (X-1 
)J+F+Y: PRINT O: RESTORE 300: NEXT Yz NEXT X: 60 SUB 5 
co 

110 IF A$="S" THEN LET NUM=NUM=4 
120 PRINT TAB 45 INVERSE 153 "TARJETA NUMERO 4": PRI 
NT | 

130 FOR X=0 TO 7: RESTORE 310: READ A,B,C,D,E,F: PR 
INT A+X3TAB 43B+X3TOB 9:C+X:3TAB 143D+X:TAB 19:E+X3TA 
B 245F+X: PRINT : NEXT X: 60 SUB 500 

140 IF A$="S" THEN LET NUM=MUM+8 

150 PRINT TAB 43 INVERSE 15"TARJETA NUMERO 5": PRI 
NT 

150 FOR X=0 TO 7: RESTORE 320: READ A,B,C,D,E,F: PR 
INT A+X5TAB 45B+X3TAB 95C0+X53TAB 143D+X3TAB 19;E+X;TA 
B 245F+X: PRINT : NEXT X:z 60 SUB 500 

170 1F A$="S" THEN LET MUM=NUM+16 

180 PRINT TAB 43 INVERSE 13"TARJETA NUMERO 4": PRI 
NT 

190 RESTORE 330: FOR X=1 TOD 9: READ A,B,C,D: PRINT 
AsTAB 85B53TAB 16;3C:TAB 24;D: PRINT : MEXT X: 60 SUB 
500 

200 1F A$="S" THEN LET NUM=NUM+32 

210 PRINT TAB 43 INVERSE 13 "TARJETA NUMERO 7": PRI 
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NT 
220 FOR X=64 TO 72: PRINT X;TAB 83X+295TAB 163X+1857 
AB 2453X+27: PRINT : NEXT X: 50 SUB 500 

230 1F A$="S" THEN  LET NUM=NUM+64 

240 PRIMT AT 10,7; INVERSE 13"SU NUMERO ERA EL "¿NU 


pc 


250 PRINT AT 17,9;"PULSE SPACE": RANDOMIZE USR 129 
: RUN 

300 DATA 4,20,35,52,68,84 

310 DATA 8,24,40,56,72,88 

320 DATA 16,24,43,56,80,885 

330 DATA 32,41,50,59,33,42,51,60,34,43,52,61,35,44, 
53,62,36,45,54,63,37,46,55,96,38,47,56,97,39,48,57,9 
9,40, 47,58,99 

500 INPUT "APARECE EN PANTALLA? (S/N) "38%: IF A$<> 
"S" AND A$<>"N" THEN 650 TO 500 

510 CLS 

520 RETURN 


od 
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BLACK JACK 


Es un juego de cartas que se juega con una baraja de 52 cartas. Cada figura 
(K, O, J) tiene un valor de 10 puntos y las demás cartas tienen por valor su nu- 
meración excepto el AS que pueda valer 1 ó 11, a. elección. 


Cada jugador debe pedir como mínimo 2 cartas, ganando el jugador que 
más se acerca a 21; perdiendo si la suma de sus puntuaciones es superior a 21. 


En caso de lograr la misma puntuación varios jugadores gana aquél que ha 
necesitado un número inferior de cartas y, si aún persiste el empate, gana el que 
va de mano. 


Reparte las cartas cada vez un jugador y el ordenador llevará la contabilidad 
de las partidas ganadas por cada jugador. 


NOTAS: 


1. Evidentemente, como máximo pueden aparecer 4 cartas del mismo número, salvo el 
10, que puede aparecer 16 veces (10, J, O, K). 


2. Cuando la carta elegida es un AS aparecerá en pantalla las dos posibilidades de conta- 
bilizar la carta: 16 11. 


3. En el momento en que un jugador pasa de 21, el ordenador lo indicará con PASA e 
inmediatamente reparte cartas al siguiente jugador. 


4. Finalmente, aparecerá el jugador ganador y una tabla de las partidas ganadas hasta 
entonces por cada uno de los jugadores. 


5. Una representación gráfica de una partida podría ser: 


JUG. 1 JU. OLUG.3 Qu. 
16 zo Pasa 
15 's 10 2 
e 3 10 3 
Ed L A S 
e A Ss 
E A 
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RESTORE 

BORDER 4: PAPER 4: INK O: CLS 
DATA 56,231,255,255,126,60,24,8 
DATA 8,28,62,127,62,28,8,0 

DATA 24,60,60,126,255,126,8,4 
DATA 8,28,62,127,127,62,8,8 
DATA 0,66,60,35,36, 60,£5,0 


FOR x=0 TO 72 READ Az POKE USR "D"+X,A: NEXT 
FOR X=0 TO 7: READ A: POKE USR "C"+X,A:z NEXT 
FOR X=G TO 7: READ Az FOKE USR "E"+X,A: NEXT 
FOR X=0 TO 7: READ A: POKE USR "B"+X,A: NEXT 
FOR X=0 TO 7: READ A: PDKE USR "R"+X,A: NEXT 
LET PS$=" *s LET DS="A 234354678 9 10) 


INPUT "CUANTOS JUGADORES 12=3) "3N 
POKE 23658, 8 
IF N>5S THEN GOD TO 49 


2 DIM U(N): LET P=1 


DIM A(52): DIM SIN): DIM CíN>3: DIM VI1N) 
IF PAN THEN LET P=P-N 

PRINT AT 10,53"REFARTE EL JUSADOR "3P 
PAUSE 200: CLS 

FOR T=1 TON 

PRINT TAB 6x*T-S33"JUC."3T; 

NEXT T 


FLET Ci=1 


FOR K=P+1 TO N 

60 SUB 1080 

NEXT K 

FOR K=i TO P 

GO SUB 1080 

NEXT K 

LET ASI1 

FOR K=1 TO N 

IF S(K)>21 THEN LET V(K3=12: 60 TO 300 
LET V(K)=21-S(K) 

IF V(xX23<=M THEN LET M=VW(K) > 

NEXT KE 

LET Y=0 

FOR K=1 TO N 

IF M=V(K) THEN LET Y=Y+1: LET QO=k 
MEXT K 


32 LET F=0 


333 FOR K=1 TO N:z 1F S(K)>21i THEN LET F=F+1: NEXT 


EE ERES 


334 
470 
SÍ 
"50: 
340 
350 
360 
365 
368 
370 
375 
377 
380 
"5H: 
385 


387 


IF F=N THEN FRINT AT 21,83"TODOS PASAN": GO TO 


IF Y=1 THEN PRINT AT 21,2;3"GANADOR EL JUGADOR 
LET U(0)=U(0)+1: 60 TO 400 

LET W=16 

FOR K=1 TON 

IF ViK)=M AND C(K)<W THEN LET W=C(K) 

NEXT K 

LET Z=0 

FOR K=1 TO ÑN 

IF V(K)=M AND C(K)=W THEN LET Z=Z+12 LET H=X 
NEXT K 

IF Z=1 THEN PRINT AT 21,2;"GANADOR EL JUGADOR 
LET U(H=U(H)+1: 60 TO 400 

FOR K=P+1 TO N 

IF V(K)=M AND C(K)=W THEN PRINT AT 21,2;"GAMAD 


OR EL JUGADOR "5kK:z LET U(kK3=UfK3+1: 60 TO 400 


388 
3590 
392 


NEXT K 
FOR K=1 TO P 
IF V(K3)=M AND C(K)=W THEN PRINT AT 21,2; "SANAD 


OR EL JUGADOR "5kK: LET U(K)=U(K)+1: 60 TO 400 


395 
400 
405 
407 
410 
420 
430 
440 
450 
460 
470 
475 
480 
485 
490 
1090 
10790 
1100 
1110 
11:20 
1130 
1140 
1142 


NEXT K 


PAUSE 200: CLS 


PRINT TAB 8; "PARTIDAS GANADAS" 
PRINT : PRINT : PRINT 

FOR K=1 TO MN 

PRINT TAB 6xK-5; "JUG. "5K; 

NEXT K 

FOR E=1 TO N 

PRINT AT 8,6xkK-45U(K) 

NEXT K 

INPUT "OTRA MANO? (S/N)  "3M$ 

IF M$="S" THEN CLS : 60 TO 490 

IF M$="N" THEN STOP 

IF M$<>"S" AND M$<>"N" THEN GO TO 470 
LET P=P+1: GO TO 54 

LET X=0 

LET ACI)=INT (RND*52)+1 

FOR J=1 TO I-1 

IF A(I)=A(J) THEN 609 TO 1090 

NEXT J 

LET C(K)=C (K)+1 

LET B=A(I)-INT (A(1)/13)x*13 

PLOT 79,15: DRAW 26,0: DRAW 0,34: DRAW -26,0: D 


RAW 0,-34 
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1143 PRINT AT 16,103". "3AT 17,103" "¿AT 18,103" 
"sAT 19,105" /” 


1144 
1145 
1146 
1148 
1150 
116560 
1165 


PRINT AT s125PS$(INT ((A(1)-1)/13)+1) 

IF B=0 THEN PRINT AT 16,10:3"K": 60 TO 1148 
PRINT AT 16,105D$(2xB-1 TO 2*B) A 

IF B=0 OR B=11 OR B=12 THEN LET B=10 

PRINT AT C(K)+5, 6xk-S;B 

IF B=1 THEN PRINT AT C(K)+5,6x*kK-35311: LET X=1 
PAUSE 100: PRINT AT 16,103" *SAT 17,105” "s 


AT 18, 10; ” "sAT 19, 10; . t1 


1170 
11753 


LET S(K)=S(K)+B | 
IF S(K)>21 THEN — PRINT AT 3,6*k-5;"PASA": GO TO 


1220 


1180 
1190 
1195 
1200 
1210 


INPUT "QUIERES MAS CARTAS? (S/N) "3C5$ 
IF C$="S" THEN LET I=1+1: 60 TO 1090 

IF C$<>"S" AND C$<>"N" THEN 60 TO 1180 

PRINT AT 3, 6x*kK-5;S(K) 

IF X=1 AND S(K)<=11 THEN LET S(K)=S(K)+10: PRI 


NT AT 3, 6x*K-3;S(K) 


1220 


RETURN 


NOTA AL LISTADO: 


Se han definido 5 gráficos (líneas 10-28) que se obtienen pulsando las teclas O, C, E, B y 
R en modo G, aunque en el listado no figuran dichos gráficos en las líneas 30 y 1165. 
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CIFRAR — DESCIFRAR 


Hacer un programa para cifrar o descifrar (a elección del usuario) mensajes 
según el siguiente código: 


La primera letra se sustituye por la que se obtiene corriendo un lugar hacia 
adelante en el abecedario, la segunda corriéndola dos lugares, la tercera tres, 
etcétera. Así, por ejemplo: 


AC. Cané 
MAME RA. TAIL 
CMaAMHvr LL. CAJIECELE 
AE TITAN ARF TA 


NOTAS: 


1. Para establecer la letra en que debe transformarse una dada, hallaremos el número 
correspondiente a ésta según el código ASCII (línea 50). A partir de él y consideran- 
do el lugar que ocupa en la frase, obtendremos un nuevo número O, que a su vez nos 
dará la letra en clave (línea 80). 


2. No se tomarán en cuenta los espacios en blanco (línea 60) y sólo se utilizarán letras 
mayúsculas. 


8 BORDER S: PAPER 52 INK 1: CLS 

9 POKE 23658,8 

10 INPUT "OPCIONES: 1 CIFRAR 
2 DESCIFRAR ",N 

11 IF N<>1 AND N2>2 THEN 60D TO 10 
12 PRINT : PRINT | 
20 INPUT "ESCRIBE EL MENSAJE "3A$: PRINT As 
25 LET J=0 
30 FOR 1=1 TO LEN As 
40 LET J=3+1 
50 LET P=CODE A$(1) 
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nn 
— 


94 
60 
7O 
73 
80 
20 
100 
110 


IF N=1 THEN LET Q=P+J 

1F N=2 THEN LET A=F-J 

IF A$(1I)=" " THEN LET J=J-1: 60 TO 90 

IF N=1 AND 2>90 TREM LET O=2-26: SO TO 7O 
IF N=2 AND (0265 THEN LET £=60+26: 50 TC 753 
LET A$(I)=CHAR+$ Q 

PRINT AS(I)3;5 

NEXT 1 

GO TO 10 


NOTAS AL LISTADO: 


E 


a 


En la línea 50 aparece la instrucción CODE. En otros ordenadores se debe sustituir 


por ASC o ASCII. 


En las líneas 50, 60, 80 y 90 aparecen las expresiones A$ (1). En otros ordenadores 


se sustituirán por MIDS$ (AS, I, 1). 
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DAMAS EN AJEDREZ 


En 1850, Dr. Nauck propuso a Gauss el siguiente problema: 


“Hallar todas las formas posibles de colocar 8 damas en un tablero de aje- 
drez de forma que no se amenacen entre sí”. 


Gauss sólo encontró 76 soluciones de las 92 posibles. 


Construir un programa que resuelva el problema de colocar n damas en un 
tablero nxn. Tomar como valor máximo n= 8, que es el problema comentado, 
pues con valores superiores tardaría demasiado tiempo. 


NOTAS: 


1. Las columnas del tablero de ajedrez se denominan con las letras A, B, C, D, E, F, 
G, H (de izquierda a derecha); las filas las numeramos de 1 a 8 (de abajo a arriba). 


2. El algoritmo de colocación es el siguiente: 


— Se comienza a colocar las damas por la 14 columna, luego por la 24, etc. 


— En cada momento se tiene en cuenta la posición de las damas en el tablero (varia- 
ble B$). El valor de B$ (1) nos dará la fila de la dama que ocupa la primera colum- 
na; B$ (2) es la fila de la dama que está en la 24 columna, etc. 


— De acuerdo con lo anterior, la 14 solución encontrada para 8 damas es B$ = 
= 15863724”, que significa que la 12 dama (primera columna) se halla en la 
fila 1, la 22 dama (segunda columna) se halla en la 5, la 32 dama (tercera columna) 

se halla en la 8, etc. 


3. ¿Cuál es el criterio para averiguar si dos damas se atacan entre sí? En general, si Y y 


X son la fila y columna de nuestra dama, otra dama de fila N y columna M se verá 
amenazada si 


Y=N ó ABS (X — M) = ABS (Y—N) (línea 90) 


No estudiamos el caso X = M, ya que tal como distribuimos las damas es imposible 
que haya 2 en la misma columna. 


4. La presentación en pantalla en el caso de 5 casillas será: 
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Li LBEEd 
A 
Za 2d LGA 
des 2 EBLA 
Ea BLAZE 


iS Le LEE TRd 

TE | 2.-16S5374d25 

= i Pe A i == nn “- E . : = == == 
r > qa NE | ds, 17 ALEA 

7 Eo | | Da Ed 3175 
ES ay: Bs. - 257 Ad 


3 BORDER Ss PAPER S: INK Oz CLS 
7 PORKE 23672200: BORDER: Ss: PAR 
LET CU=0 

2 INFUT "1i.—CON REPRESEMNTACION SRAFICA Za “SiN E 
LLA "sRE:z CLS 

9 1F REX<>1 AND RE<>2 THEN GD TO 8 

10 INPUT "NUMERO DE REINAS (4-33 "5NN 

11 1F NNX<4 OR NN>2 OR NA<>INT NN THEN S0 TI 10 

12 FOR X=i TO NN: PRINT AT 0, X-13CPR%S (624+X): HMEXT 
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15 LET B$="00000000" 

20 60 SUB 300 

40 FOR X=1 TO NM 

50 FOR Y=1 TO MN 

50 LET B$(X)=STRS$ Y 

65 IF X=1 THEN 60 TO 180 

70 FOR M=1 TO X-1 

80 LET N=VAL B$(M) 

90 1F (Y=N OR ABS (X-M>)=ABS (Y-N)) THEM  LET B3:xX) 
="0": GO TO 120 | 

95 PRINT AT 1,05B$(1 TO NN> 

100 NEXT M 

105 IF X<>NN THEN 50 TO 180 

110 LET CU=CU+1: PRINT AT 2+CU-Z20*INT (CU/20),20;CU 
5".—-"3BS(1 TO NN): BEEP 1,0.5 

111 IF RE=2 THEN GO TO 118 

112 FOR W=1 TO NNz CIRCLE 16x*W+8,16*VAL B$(W)+8,7: 
NEXT W 

113 INPUT "PULSA ENTER PARA SEGUIR "3WS$ 

114 FOR W=1 TO NM: CIRCLE OVER 13146x*W+8, 1£*VAL E$: 
4)+8,7:: NEXT W 

118 LET B$(X)="0"z GO TO 130 


120 NEXT Y 
130 LET X=X-13 IF X=0 THEN PRINT : PRINT : PRINT A 
T 0,123"YA ESTA!'": BEEP 5,í: STOP 


140 LET Y=VWAL E$(X) 

150 GD TO 120 

150 IF Y>NN THEN GO TO 139 
170 60 TO 60 

180 NEXT X 

300 REM DIBUJO DEL TABLERO 
310 FOR X=1 TO NN+1 

326 PLOT 16,16+ (X-13x*16 

330 DRAW 16*NN, O 

340 PLOT 16+ (X-1)*16,16 

350 DRAW O, 16%NN 

360 IF X>NN THEN GO TO 400 
380 PRINT AT 20, 2*X3CHR$ (64+X) 
390 PRINT AT 21-2%*X,153X 

400 NEXT X 

410 RETURN 
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NOTAS AL LISTADO: 


a 


2a 


ga 


ya 


En la línea 8 se especifica si se deses obtener las soluciones con o sin representación 
gráfica. Se ofrece esta opción con la finalidad de ganar tiempo, ya que la representa- 
ción gráfica hace el programa mucho más lento. 


En la subrutina de la línea 300 se dibuja el tablero, mientras que las líneas 112 y 114 
marcan las posiciones de las damas en el tablero. 

En las líneas 60, 80, 90, 112, 114, 118, 140 aparecen expresiones de la forma A$ (X) 
o B$ (X) que, en otros ordenadores, deberán sustituirse por MIDS$ (A$, X, 1) o MIDS 
(B$, X, 1) respectivamente. 


En las líneas 95 y 110 hay expresiones del tipo AS (X TO Y) que, en otros ordenado- 
res, deben cambiarse por MIDS$ (A$, X, Y — X + 1). 
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CUADRADO MAGICO GEOMETRICO 


Completar el siguiente cuadrado mágico de tipo geométrico: 


NOTAS: 


1. Un cuadrado mágico de tipo geométrico es aquél cuyo producto de los elementos de 
cada fila, cada columna y cada diagonal es siempre el mismo. Evidentemente, todos 
los elementos son distintos. 

2. Tener. en cuenta que el producto de la primera fila es 2!?. Por tanto, todos los ele- 
mentos del cuadrado debe ser potencias de 2, siendo la suma de los exponentes de las 
filas, columnas y diagonales principales 12. 


3 BORDER 4: PAPER 4: INK Oz CLS 

10 PRINT FLASH 13AT 8,7532: PRINT FLASH 1;3AT 8,12 
554: PRINT FLASH 1341 8,175332: FOR Z=0 TO 2: PRINT 
AT 11,7+5€Z3"2": PRINT AT 14,7+5*Z3"2": NEXT Z 

20 FOR Z=0 TO 3: PLOT 48+40+*Z7,53: DRAW 0,62: PLDT 
48,53+21*Z: DRAW 120,0: NEXT Z 

30 FOR A=0 TO 10 

32 PRINT AT 11,732%—A 

40 IF A=5S OR A=6 OR A=1 THEN 650 TO 250 

50 FOR B=0 TO 10 

52 PRINT AT 11,1232"B 

60 IF B=1 OR B=5 OR B=6 OR B=A THEN 60 TO 240 

70 FOR C=0 TO 10 

72 PRINT AT 11,1732"C 

30 IF C=1 OR C=5 OR C=6 OR C=A OR C=B OR A+B+C<>12 


THEN 609 TO 230 

70 FOR D=0 TO 19 

92 PRINT AT 14,732"D 

100 IF D=1 OR D=S OR D=6 OR EL=A OR D=E OR D=C OR A+ 
D<>511 OR B+D<>7 THEN €O TO 220 

110 FOR E=0 TO 10 

112 PRINT AT 14,1232"E 

120 I1F E=í OR E=S OR E=6 OR E=A CR E=B OR E=C UR E= 
D OR B+EXx>6 THEN 60 TO 210 

1350 FOR F=0 TO 10 

132 PRINT AT 14,1732*F ? 

140 1F F=1 OR F=S OR F=6 OR F=fA OR F=B OR F=C CR F= 
D OR F=E OR B+F<>311 OR <2+FX<>7 CR D+EFF>12 THEN 50 
TO 209 


150 STOP 

200 PRINT AT 14,173" "E NEXT E 
219 PRINT AT 14,123" ": NEXT E 
220 PRINT AT 14,73” "z NEXT D 
250 PRINT AT 11,175" ": NEXT € 
240 PRINT AT 11,123" "z NEXT. B 
2530 PRINT AT 11,75" "2 NEXT A 


45 


JUEGO DE HOLT 


Vamos a construir un programa para jugar a adivinar palabras, una mezcla 
de ahorcado y master-mind, inventado por Anatol W. Holt: 


Un jugador introduce una palabra y el otro debe adivinarla en el menor 
número posible de intentos (comenzar con palabras de sólo 3 ó 4 letras); para 
ello hay que introducir palabras con el mismo número de letras y el ordenador 
nos informará de si el número de letras coincidentes en ambas palabras, sin im- 


portar el orden, es par o impar. 


Para no complicar el juego es conveniente que ninguna letra se repita en las 


palabras dadas o en la buscada. 
La presentación podría ser: 


AS su 


CAMPa 


HAS ACERTADO 


3 BORDER S: 
G9 POKE 23658,8 


10 INPUT "ESCRIBE UNA PALABRA CON TODAS 
AS DISTINTAS", AS 


20 PRINT "ENCUENTRA UNA PALABRA DE *, LEN 


25 LET N=1 
30 INPUT "ADIVINA LA PALABRA ",B$: IF LEN BS$<>LEN 


As THEN GO TO 30 


40 LET P=0 


530 FOR I=1 TO LEN Bs 
50 FOR J=1 TO LEN As 
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MUMERO 
MUMERO 
MHNUMERO 
MUMERO 


A UNA PALABRA DE 


PAR 
PARAR 
IMPAR 
IMPAR: 


S INTENTOS 


INK Oz CLS 


LAS 


LETR 


At;3" LETR 


70 1F B$(1)=9$(J) THEN LET P=P+1 
30 NEXT J 


70 NEXT 1 


100 IF A$=B$ THEN PRINT : PRINT FLASH 154%: PRINT 
: PRINT "RAS ACERTADO EN "3N5" INTENTOS": PAUSE O: 


RUN 
110 1F INT (P/2)=P/2 THEN PRINT : PRINT B*, "NUMERO 


PAR": GO TO 130 
120 PRINT : PRINT B%, "NUMERO IMPAR" 


130 LET N=N+1: GO TO 30 


NOTA AL LISTADO: 


La línea 70 es válida en el Spectrum. En otros ordenadores se debe sustituir por: 
70 1F MIDS (BS, l, 1) =MIDS (AS, J, 1) THEN LETP=P +1 
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2 
SIMULACIONES -AZAR 


BINGO 


Construir un programa para jugar al bingo. El ordenador tomará al azar los 
números del 1 al 90 y los irá mostrando en una tabla ordenada en pantalla; se 
obtendrá cada número pulsando una tecla, destacando el que acaba de salir. 


La presentación será: 


NOTA: 


S0 


= «ld = Es = 
L1 12 13 sl 1 
=1 3 24 25 5 
A A 
41 di dd dd 346 47 da 
a de 33 
EX 63 56 67 En TE 
7 7d 75 
31 54 5 86 S7 35 € 


1. Para colocar los números en su correspondiente fila y columna obtendremos la cifra 
de las decenas y unidades (líneas 110 y 120). 


40 
42 
45 
30 
60 
65 
7O 


BORDER 5: PAPER S: INK 1: CLS 


PRINT *13" SACA UN NUMERO PULSANDO ""ENTER""" 
PRINT AT 0,12; "BINGO" 

RANDOMIZE O 

DIM A(100) 

PAUSE O 


FOR X=1 TO 90 


380 

90 
100 
110 
120 
125 
130 
140 
145 
150 


LET N=INT (RND+*90)+1 

IF A(N)<>0 THEN 60 TO 80 

LET A(N)=N 

LET M=INT (N/10) 

LET P=N-10*INT (N/10) 

IF P=0 THEN LET P=10: LET M=M-1 
PRINT FLASH 15481 2*(M+1),3%*P5A(N) 
PAUSE O 

PRINT AT 2x*(M+1),3XP5A(N) 

NEXT X 
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QUINIELAS HIPICAS 


Construir un programa para rellenar quinielas hípicas. Suponer que hay 
hasta un máximo de 12 caballos por carrera; se pedirá el número de apuestas y 
la probabilidad de cada caballo, rellenándose al azar. 


Por ejemplo, en el caso de 10 apuestas, la quiniela podría ser: 


APUES 1 2 3 4d 5 6 7 % 34 168 


NOTAS: 


1. La suma de las probabilidades de todos los caballos participantes en cada carrera de- 
berá ser 100. 


2. Como máximo se presentarán en pantalla 13 apuestas. 


3. El caballo ganador se obtendrá eligiendo al azar un número del 1 al 100. A cada caba- 
llo, de acuerdo con las probabilidades establecidas al principio, se le asigna una franja 
de números. Por ejemplo, si corren 3 caballos con probabilidades 20 ,30 y 50 
cuando el número elegido al azar esté comprendido entre 1 y 20 dará ganador al pri- 
mer caballo; si está entre 20 y 50 el ganador será el segundo, y si es entre 50 y 100 
será el tercero. 


22 


8 DIM At6,12): DIM P(6) 
$? BORDER 4: PAPER 4: INK G: CLS 

10 FOR I=1 TO 6 

20 INPUT ("CUANTOS CABALLOS PARTICIPAN EN LA CARR 
ERA NUMERO "31),P(1) 

23 1F Pt13)12 THEN 6150 TO 20 

28 LET S=0 

30 FOR J=1 TO P(1> 

40 INPUT ("CUAL ES LA PROBAEILIDAD EN Z% DEL CABALL 
O "55" EN LA CARRERA "31),41f1,J) 

435 LET S=S+A(1,J) 

0 NEXT J 

59 IF S<>100 THEN PRINT AT 0,0;"LA SUMA DE LA PRO 
BABILIDADES HA DE SER EL 100%": 60 TO 28 

60 NEXT 1 

65 CELS 

70 INPUT "CUANTAS APUESTAS QUIERES (<=13) "5R: IF 
R>13 THEN 60 TO 70 

71 PRINT AT 0,03 "AFPUES": FOR N=0 TO 6: PLOT 0, 164- 
156*N: DRAW 44+16*R,0: NEXT ON 

72 FOR N=1 TO £: PRINT AT 2x*N,C3"CARR"5N: NEXT N 

73 FOR N=0 TO R:z PLOT 44+16x*N, 164: DRAW 0,-15*6: ÑN 
EXT N 

794 FOR N=1 TO R: PRINT AT 0,4+2N3N:" NEXT ON 

73 FOR K=1 TO R 

30 FOR I=1 TO 64 

70 LET X=INT (100*RND) 

935 LET S=0 

100 FCR J=1 TO P(I) 

110 LET S=S+A(I,J) 

120 1F S>=X THEN PRINT AT 21, 2xK+43J: GO TO 140 

130 NEXT J 

140 NEXT I 

150 NEXT K 
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AGUJAS DE BUFFON 


Vamos a simular el experimento de las agujas Buffon (1777): 
Trazamos una serie de paralelas, separadas entre sí por una distancia D. 


Lanzamos al azar varias agujas (p. ej. 1000) de longitud D/2. 


Si dividimos el número de lanzamientos por el número de veces en que las 


agujas cortan a alguna paralela, el cociente es un valor muy aproximado de PI. 


NOTAS: 
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1. Para simular el experimento, reduciremos las paralelas a 2 y tomaremos como espacio 
posible de caída de las agujas un rectángulo, formado por: el espacio comprendido 
entre las paralelas y además dos franjas, una superior y otra inferior de anchura D/2. 


LANZAMIENTOS 1%1 TOCACOS 4 


A a ¿PP o 


2. Lanzamos las agujas tomando al azar las coordenadas de un extremo y un ángulo 
(líneas 70, 80, 90); y, establecemos el desplazamiento horizontal y vertical para ob- 
tener su otro extremo (línea 100). Esto permite dibujarla. 


3. Las dimensiones del rectángulo se han modificado muy ligeramente para no alterar 
su contorno cuando borramos las agujas tras cada lanzamiento. 


q 
10 
13 
ZO 


30 
20 
00 
60 
7G 
280 
30 
100 
110 
120 
130 
140 
150 
150 
120 
180 
200 
210 
220 
230 
240 
250 


BORDER 4: PAPER 4: INK O: CLS 
LET R=0: LET S=0 
INPUT "CUANTAS ASUJAS LANZAS "3N 


PLOT 15,15: DRAW 226,0: DRAW (0,98: 
DEAN 0,-98 


PLOT 15,40: DRAW 225,0 

PLOT 15,88: DRAN 225,0 

PRINT AT 1,23 "LANZAMIENTOS" 
PRINT AT 1,20: "TOCADOS" 

LET X=INT (225*RND)+165 

LET Y=INT (99*RND)+16 

LET Z=INT (RND*X2x*PI) 

LET P=24*C0S Zz LET O=24*SIN Z 
IF P+X>240 OR P+X<16 THEN G0 TO 


IF Q+Y>112 OR O+Y<16 THEN 60 TO 70 


PLOT X,Y: DRAW P,O 
LET R=R+1 


ZO 


IF Y<240 AND Q+Y>90 TREN LET S=S+1 
IF Y<88 AND Q+Y>”38 THEN LET S=S5+1 
1F Y>88 AND Q+Y<88 THEN LET S=S+1 
IF Y>40 AND 0Q+Y<40 THEN LET S=S+1 


PLOT — INVERSE 15X,Y: DRAW  INVERSE 13P,0D 


PLOT 16,88: DRAW 224,0: PLOT 1£,40: 


GO TO 230 

PRINT AT 1,155R: FPRINT AT 1,2855 
IF RN THEN 50 TO 70 

PRINT AT 3,10:3N/S 


DRAW 224,0 


DRAW -—-225,0: 
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SIMULACION DEL TIRO AL BLANCO 


Tirando al blanco, Pepe acierta uno de cada 4 disparos y Laura uno de cada 
3. Hacemos el siguiente experimento: 


Pepe dispara 2 veces y caso de acertar en algún disparo se finaliza; en caso 
contrario, Laura continúa disparando hasta que acierta una vez en el blanco. 


Por simulación, calcular el número de disparos que deben hacerse para obte- 
ner una probabilidad de acertar superior al 90 


Inicialmente se preguntará el número de veces que se repetirá la experiencia 
y posteriormente se representará en un diagrama de barras la frecuencia del nú- 
mero de disparos necesarios para hacer blanco. 


NOTAS: 


1. Para simular un disparo de Pepe tomaremos al azar un número del 1 al 4 y, si es de 
Laura, un número del 1 al 3. En ambos casos supondremos acierto cuando salga el 1. 


2. Cada vez que realizamos el experimento contabilizamos el número de disparos nece- 
sarios para hacer blanco. 


3. Deberemos presentar en pantalla el número de veces que ha sido necesario efectuar 
1,2, 3, etc., disparos en cada experimento. 


4. Finalmente, se representará en un diagrama de barras las frecuencias relativas acumu- 
ladas del número de disparos que han sido necesarios para acertar. La altura corres- 
pondiente al 90 % es la solución. La gráfica podría ser, por ejemplo: 


Laa 


S6 


5. Si repetimos muchas veces (p. ej. 100 ó más) la experiencia, el resultado tiende a es- 
tabilizarse. 


10 REM SUPONEMOS QUE NUNCA HACEN FALTA MAS DE 25 D 
ISPAROS 
11 BORDER S: PAPER 5: INK O: CLS 
12 DIM A(30) 
14 INPUT "CUANTAS VECES DESEAS REPETIR LA EXPERIEN 
CIA "5R 
16 LET P=0 
20 LET P=P+1: 1F P>R THEN 60 TO 120 
30 LET N=0 
240 LET N=N+1 
0 LET X=INT (RNDx*4)+1 
60 I1F X=1 THEN PRINT AT 0,153N3" “: PAUSE S: LET 
A(MWM=A(N3+1: GD TO 20 
70 IF N=1 THEN GO TO 40 
380 LET Y=INT (3%RND)+1 
90 LET N=N+1 
100 1F Y=í THEN PRINT AT 0,155N5" ": PAUSE S: LET 
A(N)=A(N3+1: GD TO 20 
110 G0 TO 80 
120 LET Q=0 
121 CUuS d 
122 FOR J=1 TO 30 
123 1F A(J)<>0 TREN PRINT "NECESITAN "3353" DISPARD 
S "sA(Y35" VECES": PRINT 
124 NEXT J 
130 FOR I=i TO 30 
140 LET Q=0+4 (1) 
150 IF 0>=.9x*R THEN PRINT : PRINT "EL .9 DE PROBAB 
ILIDAD SE OBTIENE CON "313" DISPAROS": 60 TO 170 
160 NEXT 1 
170 REM REPRESENTACION GRAFICA EN UN DIAGRAMA DE BA 
RRAS DE FRECUENCIAS ACUMULADAS . 
180 PRINT : PRINT "PULSA UNA TECLA": PAUSE O: CLS- 
190 PLOT 16,8: DRAW 224,0 
200 PLOT 16,8: DRAW 0,160 
210 FOR K=1 TO 10 
220 PRINT AT 21-—2*K,O53kx*10 
230 NEXT K 
233 REM SOLO SE REPRESENTA HASTA EL CASO EN QUE SE 
DEEA DISPARAR 14 VECES 
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240 
2453 
2530 
260 
263 
270 
273 
280 
2790 
300 
310 


320 


FOR K=1 TO 14 

IF K=11 OR k=13 THEN 60 TO 260 
PRINT AT 21,2*k+15K 

NEXT K 

LET S=0 

FOR K=1 TO 14 

LET S=S+A(K)*1650/R 

PLOT 12+16*k,8: DRAW 0,S-4 
NEXT K 

PLOT 16,148: DRAW 16x*1-4,0 
PRINT AT 21,2*1+1;3 FLASH 151 
STOP 


NOTA AL LISTADO: 


A partir de la línea 170 se representa el diagrama de barras. Este método de representa- 


ción está hecho para el Spectrum, y en cualquier otro ordenador con diferente tipo de reso- 
lución será necesario modificarlo totalmente. 
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3 
TIEMPO 


CALENDARIO MENSUAL 


El calendario gregoriano, actualmente en vigor, lo impuso Gregorio XII en 
1582. Se quiso restablecer las estaciones según el ciclo solar, ya que en los 1257 
años transcurridos desde el Concilio de Nicea se había acumulado un retraso de 
10 días. Se decretó que: 


1. El día siguiente al jueves 4 de octubre de 1582 fuese el viernes 15 de 
octubre. 


2. En lo sucesivo fuesen bisiestos todos los múltiplos de 4, pero de los años 
seculares (cambio de siglo) sólo serían bisiestos aquéllos en que el núme- 
ro de centenas sea divisible por 4. 


Sabiendo que el 1-1-1583 fue sábado, construir un programa que dado 
el mes y el año muestre en pantalla el calendario completo de dicho mes. Por 
ejemplo: 

EMERO pr SN a] 
LU mA mI ol TI SA EQ 
a 


34d 5 057058 
189 11 12 13 14 15 16 
7.13 139 20 21 22 23 
Dd 25 26 27 25 29 30 


NOTA: 


1. A partir de la fecha dada, el ordenador calculará el número de días transcurridos des- 
de el 1-1-1583 hasta el día 1 del mes y año deseado. Calcularemos el resto de la divi- 
sión de dicho número por 7, obteniendo así el día de la semana correspondiente al 
día 1. A partir de él, se imprimirá el mes completo. 


8 BORDER 4: PAPER 4: INK O: CLS 
9 RESTORE 
10 DATA 62,0,34,50,42,38,34,0 


60 


11 DATA 31,"ENERO", 28, "FEBRERO",31,"MARZO",30, "ABR 
11 ",31,"MAYO",30, "JUNIO",31,"JULIO",31,"AGOSTO", 30," 
SEPTIEMBRE",31,"OCTUBRE", 30, "NOVIEMBRE",31,"DICIEMBR 
E" 

100 REM DEFINICION DE 

110 FOR X=0 TO 7: READ A: POKE USR "N"+X,A: NEXT X 

120 REM DIAS DEL MES-DIAS DE LA SEMANA 

130 DIM N(12): DIM D$(12,10) 

140 FOR X=1 TO 12: READ N(X),D$(X): NEXT X 

150 REM EMPIEZO DESDE 1-1-1583 SABADO 

170 LET 1=6 

180 INPUT "A O (1583-..... AGA 

185 IF A<1583 OR INT A<>A THEN 69 TO 180 

190 INPUT "MES (EN NUMERO) "3M 

195 IF M<>INT M OR M<1 OR M>12 THEN E0 TO 190 

210 LET I=I+A-1583+INT ((A-1581)/4) 

-220 IF A/4=INT (A/4) AND M>=3 THEN LET I=I1+1 

230 REM BISIESTOS SECULARES 

240 LET I=I-INT ((A-1600)/100)+INT ((A-1500) /400) 

250 IF A/100=INT (A/100) AND A/400<>INT (4/400) AND 

M>=3 THEN LET I=1-1 

280 REM DIAS TRANSCURRIDOS EN ESE A O 

290 IF M=1 THEN 60 TO 330 

300 FOR X=1 TO M-1 

310 LET I=I+N(X) 

320 NEXT X 

340 LET I=I-7*INT (1/7): 1F I=0 THEN LET 1=7 

350 REM IMPRIME LOS RESULTADOS 

360 PRINT AT 4,43D$(M)3" "AT 4,203M: FRINT 

370 PRINT TAB 453"LU MA MI JU VI SA DO" 

375 IF A/4=INT (4/4) AND A/100<>+INT (A/100) THEN L 
ET N(2)=N (2)+1 

376 1F A/400=INT (A/400) THEN LET N(2)=N(2)+1 

380 LET F=8: LET C=1+3+*1 

390 FOR X=1 TO N1M) 

395 IF X<10 THEN LET C=C+1 

400 PRINT  INK (C>=22)*7;AT F,C3X 

410 LET C=C+3 

415 IF X<10 THEN LET C=C-1 

420 IF C>22 THEN LET C=4: LET F=F+2 

430 NEXT X 

435 COFY 

440 INFUT "OTRO MES? 


(S/N) “3A0s 
460 15 As="5" OR AS="s" THEN RUN 
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NOTAS AL LISTADO: 


12 En la línea 110 se define el carácter Ñ, que luego aparece en las líneas 100, 180 y 
280 aunque no lo escribe la impresora. 

23 En la línea 130 se dimensiona una variable alfanumérica. En el Spectrum es preciso 
definir el máximo número de caracteres que puede alcanzar dicha variable (en nues- 
tro caso 10:SEPTIEMBRE) 

3a En las líneas 140 y 360 hay expresiones de la forma A$(X). En otros ordenadores 
se sustituirán por MIDS$ (AS, X, 1). 


RELOJ 


Construir un programa que enseñe a los niños a leer la hora en un reloj ana- 
lógico. En pantalla, aparecerá éste indicando las horas que marcan sus agujas. 


114. HORAS HERO Za 
6, 

ora a 

e E sE 1 A 


JA EMLTTES 


a a 
cua? ez 
FLO ae 


pa “El a EY 
il qe h 
ak. e ó 
Bo Aa 
pa AT 
." cl «E 
a E 0 di 
a ra 
EX LA: 
A Y 1d PEENMITOS: 
O A A 
Mo == 13 E 
ar E 5 Ma 
a. =p 
5 k [5] y A 
+ a , 
ta e Atos la 
M0 ATT sl 
el h 
a E 
, buno? de 
DC 3% 
en A 
ea PA 
a Eo 
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NOTAS: 


1. 


10 
20 
0 
40 


El programa consta de 4 niveles de dificultad. En el primero sólo se marcan horas 
exactas; en el segundo, horas y medias horas; en el tercero horas, medias y cuartos; 
y en el cuarto nivel, se indican los minutos de cualquier posición. 


. Los números de la esfera se escriben en pantalla leyéndo sus coordenadas en un 


DATA (línea 40). 


. Si se considera como origen el centro del reloj, calculamos el desplazamiento horizon- 


tal y vertical del otro extremo de la aguja aplicando las fórmulas: 
X = LsenA Y = LcosA 


Donde L es la longitud de la aguja y A el ángulo recorrido por la aguja desde las 12. 


REM DIBUJO DE LA ESFERA 

RANDOMIZE : RESTORE 

BORDER 1: PAPER 1: INK 7: CLS 

DATA 4,19,7,22,11,23,15,22,18,19,19,15,18,11,15 


20, 11,7,7,8,4,11,3,14 


DO 


CIRCLE 123,894,70 

FOR x=1 TO 12 

READ a,b 

PRINT AT a,b3x 

NEXT xx 

FOR x=1 TO 60 

LET y=1: 1F x/S5=INT (x/5) THEN LET y=3 

CIRCLE 1233+72*C0S ((x-15)*P1/30),84-72*SIN ((x-— 


15)*P1/30),1 


140 
145 


NEXT xy 
FOR X=1 TO 12: CIRCLE 123+72x* 005 ((X-3)1*P1/6),8 


A-72%SIN ((X-23I)XPI/6),32 NEXT X 


173 
180 
190 
180 
200 
210 


220 


REM DEMOSTRACION 
INPUT "GRADO DE DIFICULTAD (1-43 "3D 
IF D<>1 AND D<>2 AND D<>3 AND D<>4 THEN 60 TO 


INPUT "CUANTAS DEMOSTRACIONES QUIERES? "3A 
FOR X=1 TO A: LET H=INT (RND*12)+1 
LET M=(D=23*30*INT (RNID*2)+(D=3)*+1S5*INT (RNDx45 


+(D=4)*INT (RND*60) 
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230 GO SUB 50%: NEXT X: PRINT AT 0,03" BT 
1,03" ":= GO TO 175 

500 REM COLOCACION DE AGUJAS 

510 REM ANGULO MOVIDO AGUJA GRANDE A PARTIR DE LA H 
ORA EN PUNTO 

520 LET AG=Hx*P1/6 

530 REM ANGULO AGUIA PEQUENA DESDE 12 H 

540 LET AP=Mx*P1/30 

550 PLOT 123,84: DRAW 60*SIN AP,60*CDS AP 

555 IF H=12 AND M=0 THEN 60 TQ 570 | 
560 PLOT 123,84: DRAW 40*SIN (AG+AP/12),40*C05 (AG+ 
AP/12) 

570 GO SUB 650 

580 INPUT "PARA CONTINUAR, PULSAR ENTER "3A% 

585 CIRCLE 123,84,2 

3590 PLOT 123,84: DRAW  INVERSE 1:60*SIN AP,69*C05 A 
P 

500 PLOT 123,84: DRAN  INVERSE 1;40*SIN (AG+AP/12), 
40*COS (AG+AP/12) 

610 RETURN 

650 REM ESCRIBIR LA HORA 

560 PRINT AT 0,03" . 

5665 PRINT AT 1,03" s 
670 LET M$=STRS$ M 

580 LET A%$="SON LAS: ": LET B$=" HORAS Y ": LET C$=" 
“"z LET D$=" MINUTOS" 

690 1F M>30 THEN 60 TO 740 

695 IF M=0 THEN LET B$=" EN PUNTO ": LET M$="": LE 
T Cé="": LET Di="" 

700 IF H=1 OR H=13 THEN LET H=1: LET A$="ES LfAsz ": 
LET B$=" Y " 

710 IF M=15S THEN LET Mé$="": LET D$="CUARTO ” 

720 1F M=30 THEN LET M%$="": LET D$="MEDIA" 

725 1F M=0 THEN LET B35=" EN PUNTO * 

726 1F M=1 THEN LET D$=" MINUTO" 

ZO 60 TO 790 

750 LET M$=STR% (60-M) 

760 LET B$=" HORAS MEMOS ” 

770 IF M=45 THEN LET Ms=""¿ LET Dé="CUARTO": LET M 
$=n” 

780 1F H=12 THEN LET A$="ES LA:" 

785 LET H=H+1: IF H=13 THEN LET H=1: LET A$="ES LA 
2": LET B$=" MENOS * 

786 IF M=59 THEN LET D*="MINUTO" 

790 PRINT AT 0,03A$53A57T 1,0;H3BS93M$3D3 


3800 RETURN 
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TEORIA DE LA RELATIVIDAD 


Según la teoría de la relatividad si un fenómeno dura en nuestro sistema un 
tiempo T, en otro sistema que se mueva respecto a nosotros a una velocidad v 
el fenómeno durará: 


TIY 1— v? Je? 


Dada la velocidad de una nave espacial (en km/h) y el tiempo (en años, me- 
ses y días) transcurrido en la Tierra durante el viaje, calcular cuanto ha durado 
éste para los pasajeros de la nave. 


NOTAS: 


1. No se admitirán velocidades superiores a c (velocidades de la luz), que considerare- 
mos como 300.000 km/seg (línea 61). Trabajaremos con los tiempos en segundos (lí- 
nea 80). 


2. La presentación en pantalla puede ser, por ejemplo: 


NMELOCICAC: 230nto0a RMHM-+SEG 


1 1 1 la) L 2z 

3 a ? 8 1 =7 

18 2 E z = mz 
9 RESTORE 


10 BORDER O: PAPER Oz INK 7: CLS 
20 FOR x=0 TO 7: READ A: POKE USR "N"+X,A:z NEXT X 
30 DATA 62,0,34,50,42,38,34,0 
60 INPUT “VELOCIDAD EN KMS/SEG  (>=50000) "; 
61 IF V>=300000 OR V£50000 THEM 60 TO 60 
2 PRINT "VELOCIDAD: "3V3" KM/SEG":z PRINT 


140 


PRINT *TIEMPD-TIERRA TIEMPO-VIAJERO": PRINT 
PRINT "A OS MESES DIAS A MESES DIAS": PRINT 
INPUT "A OS? "343" MESES? "3M3" DIAS? "3D 

LET T=(AXZ6GS+MAZO+D) *24HEO6O0 

LET C=300000 

LET NT=T*SQR (1-(VRV) / (1[C*C)) 

LET DI=INT (NT/ (60*560%724) 2 

LET ME=INT (DI/20): LET DI=DI-3CxME 


' LET AN=INT (ME/12): LET ME=ME-12x*AN 


PRINT TAB O05A53TAB 63M53TAB 123D53TAB 175AN;3TAB 22 


¿MES TAB 2853D1I: FRINT 


150 
160 
THEN 
170 
180 


INPUT "LA MISMA VELOCIDAD? (S/N) "53RS$ 

IF R$<>"S" AND R$<>"s" AND R$<>"N" AND R$<>"n" 
609 TO 150 

1F R$="S" OR R$="<s" THEN 60 TO 70 

RUN 60 


NOTA AL LISTADO: 


En las líneas 20 y 30 se define la Ñ, que se obtendría en las líneas 66 y 70, utilizando N 
en modo G, aunque la impresora no la ha escrito. 
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DIA DE PASCUA 


Construir un programa para determinar la fecha del día de Pascua, de cual- 
quier año comprendido entre 1900 y 2099, siguiendo el siguiente algoritmo 
dado por T.H. O'Beirne en 1966: 

1. A=año — 1900 

2. B=resto (A/19) 

3. C=cociente ((7 B + 1)/19) 

4. D=resto((11 B + 4 — C)/29) 

5. E=cociente (4/4) 

6. F=25-D-resto((A + E + 31 — D)/7) 


La fecha es F del mes de abril, si F es positivo, y 31 + F de marzo cuando 
F es negativo. 


10 BORDER Ss PAPER S:2 INK O: CLS < POKE 23658,8: PF 
OKE 23692,-1 

15 RESTORE 

20 FOR X=0 TO 72: READ A: FOKE USER "N"+X,A: NEXT X: 
DATA 62,0,34,50,42,38,34,0 

ZO PRINT "A ",” PASCUA" 

¿5 PRINT l====", "==========="¿ PRINT 

40 INPUT "TECLEA EL A O "34M: IF AX<1900 OR A>20939 T 
HEN GO TO 40 

50 PRINT A, 

60 LET A=A-1900 

7O LET B=A-19x*INT (A/19+.02) 

380 LET C=INT ((7*B+1)/19+,.01) 

GO LET D=-11*B+4-C-29x* INT ((11*B+4-C)/29+.01) 

190 LET E=INT (A/4+.01) 

110 LET F=25-—D-( (A+E+31-D)-7* INT ((A+E+31-D)/7+.01) 
1 

120 1F F>0 THEN PRiINTeF5"” DE ABRIL": PRINT 

130 IF F<=0 THEN PRINT 31+F3" DE MARZO": FRINT 

140 G9 TO 40 
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NOTAS AL LISTADO: 


1a En la línea 20 se define el carácter Ñ, que se obtendrá pulsando la letra N en modo 
G. Figura en las líneas 30 y 40 aunque la impresora no lo escribe. 


24 En las líneas 70, 80, 90, 100 y 110 es preciso redondear al utilizar INT. 
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4 


APLICACIONES 
EDUCATIVAS 


INDICATIVO: VERBOS REGULARES 


Construir un programa que, dado un verbo regular en castellano, imprima el 
tiempo de indicativo deseado. Por ejemplo: 


CLERO latidos lo 


NOTAS: 


TIEMPO 


F UT IIREC 


HABRE EE AAA 
HRAERAS FEROGRAMRACDO 
HAERA PROGRAMA a 


HHERE MOS 
HAEBRETS 
HA ERA 


PRO AA AA OO 
RUT AAA O 


EE AAA 


PERFECTO 


1. En primer lugar, aparecerá un menú como el siguiente: 


712 


Ea EMB ESEAcCO 
a PRESEMNTE 
Z PRETERITO PERFECTO 
3 PRETERITO IMPERFECTO 
d. PRETERITO PLUSCUAMPERFECTO 
= PRETERITO IMNDEF INTI 
a FPRETERITO ANTERIOR 
ES FUTURO SIMPLE 
Ss FUTURO PERFECTO 


AA AE OR MIE GSTUE 


2. Una vez dado el verbo obtendremos su raíz quitando sus dos últimas letras. 


3. Evidentemente, los diversos tiempos se almacenarán en DATA. 


3 BORDER S: PAPER 5: INK O: CLS 

F? POKE 23658,8: RESTORE 

10 INPUT "ESCRIBE UN VERBO REGULAR *",AS 

20 PRINT "PULSA EL NUMERO CORRESPONDIENTE AL TIEMP 
O DESEADO" 

30 PRINT AT 4,33" PRESENTE” 

40 PRINT AT 6,33"2 PRETERITO PERFECTO" 

50 PRINT AT 8,353"3 PRETERITO IMPERFECTO" 

60 PRINT AT 10,33"4 PRETERITO PLUSCUAMPERFECTO" 


7O PRINT AT 12,33" PRETERITO INDEFINIDO" 
80 PRINT AT 14,35"5 PRETERITO ANTERIOR" 
90 PRINT AT 16,33" FUTURO SIMPLE" 

100 PRINT AT 18,33" FUTURO PERFECTO" 


110 1NPUT PP 
120 CLS 2: PRINT "VERBO "35 FLASH 155%: PRINT : FRINT 


122 IF P=1 THEN PRINT "TIEMPO PRESENTE”: PRINT 


123 1F P=2 THEN FPRINT "TIEMPO : PRET. PERFECTO": 
PRINT : FRINT 

124 IF P=3 THEN PRINT "TIEMPO : PRET. IMPERFECTO" 
z PRINT : PRINT 

123 IF P=4 THEN PRINT "TIEMPO 
FECTO": PRINT : PRINT 

126 1F P=S THEN PRINT "TIEMPO 
: PRINT : PRINT 

1727 1F F=6 THEN PRINT "TIEMPO 
PRINT : FRINT 

128 IF P=7 THEN PRINT "TIEMPO : FUTURO SIMPLE": P 
RINT : PRINT 

129 IF P=S THEN PRINT "TIEMPO 
PRINT : PRINT 

130 LET B$=A4+( TO LEN At$-2) 

140 IF AS(LEN At-1)="A" THEN LET K=1: LET D3=R$+"A 
po" 

159 IF AS(LEN At$-1)="E" THEN LET K=22 LET D$=B3%$+"I 
DO" 


PRET. PLUSCTUAMPER 


PRET. INDEFINIDO” 


PRET. ANTERIOR": 


FUTURO PERFECTO": 


ES 


160 1F AS(LEN As$-13)="1" THEN —(LET K=32 LET D$=B$+"1 


170 FOR Z=1 TO 8 

180 FOR Y=1 TO 3 

190 FOR X=1 TO 6 

200 READ C$ 

210 IF Z=P AND Y=K AND INT (Z/2)<>Z/2 THEN PRINT E 
$+C$: PRINT : 60 TO 23 

220 1F Z=P AND Y=K THEN PRINT C$5TAB 105D%: PRINT 

230 NEXT X 

240 NEXT Y 

250 NEXT Z 

255 INPUT "MAS VERBOS ? (S/N) "3k%$: IF K$="N" THEN 

STOP 

250 INPUT "DESEA ESTUDIAR EL MISMO VERBO — (S/N)”,P 
$: IF P$="S" THEN RESTORE : CLS : 60 TO 20 

265 IF P$="N" THEN RUN 

266 GO TO 260 

270 DATA "0","AS","A", "AMOS", "AIS","AN","D","ES","E 
" "EMOS", "ElS", "EN", "0", "ES", "E", "IMOS","1S", "EN" 

280 DATA "HE", "HAS", "HA", "HEMOS", "HABEIS", "HAN" 

290 DATA "HE", "HAS", "HA", "HEMOS", "HABEIS", "HAN" 

700 DATA "HE", "HAS", "HA","HEMOS", "HABEIS", "HAN" 

310 DATA "ABA","ABAS","ABA", "ABAMOS", "ABAIS", "ABAN" 

320 DATA "IA","1AS","IA","IAMOS", "IAIS", "IAN" 

330 DATA "IA","IAS","IA", "IAMOS","IAIS”, "IAN" 

340 DATA “HABIA", "HABIAS", "HABIA", "HABIAMOS", "“HABIA 
15", "HABIAN" 

350 DATA "HABIA", "HABIAS", "HABIA", "HABIAMOS", "HABIA 
IS", "HABIAN" 

350 DATA "HABIA", "HABIAS", "HABIA", "HABIAMOS", "HABIA 
IS", "HABIAN" 

370 DATA "E","ASTE","0", "AMOS", "ASTEIS","ARON" 

380 DATA "1","ISTE","10","IMOS","ISTEIS","IERON" 

390 DATA "1","ISTE","10","IMOS", "ISTEIS","IERON" 

400 DATA "HUBE", "HUBISTE", "HUBO", "HUBIMOS", "HUBISTE 
IS", "HUBIERON" 

410 DATA "HUBE","HUBISTE", "HUBO", "HUBIMOS", "HUBISTE 
IS", "HUBIERON" 

426 DATA "HUBE", “HUBISTE", "HUBO", "HUBIMOS", "HUBISTE 
IS", "HUBIERON" 

430 DATA "ARE","ARAS", "ARA", "AREMOS", "AREIS”, "ARAN" 
, "ERE", "ERAS", "ERA", "EREMOS", "EREIS", "ERAN", "IRE", "1 
RAS", "IRA", "IREMOS", "IREIS", "IRAN" 

340 DATA "HABRE","HABRAS”, "HABRA", "HABREMOS", "HABRE 
IS”, "HABRAN" 

74 


450 DATA "HABRE","HABRAS", "HABRA", "HABREMOS", "HABRE 
IS", "HABRAN" | 

460 DATA "HABRE","HABRAS", "HABRA", "HABREMOS", "HABRE 
IS", "HABRAN" 


NOTAS AL LISTADO: 


1a En las líneas 140, 150 y 160 aparecen expresiones del tipo A$ (X). En otros ordena- 
dores sustituirlas por MID$ (A$, X, 1) 


24 En la línea 130 aparece A$ (TO LEN A$-2). Cambiar en otros ordenadores por 
LEFTS (AS, LEN A$-2) 
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TEST DE QUIMICA 


NOTAS: 
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Construir un programa para hacer preguntas tipo test sobre la tabla periódi- 
ca de los elementos químicos. Se nos hará una pregunta y se presentarán cuatro 
respuestas al azar, una de las cuales será la correcta (el lugar que ocupa entre las 
4 se obtendrá al azar): 


Dado el nombre de un elemento escribir su símbolo o viceversa. 

Dado el número atómico escribir su símbolo o viceversa. 

Dado el nombre de un elemento escribir su número atómico o viceversa. 
El ordenador nos irá indicando el porcentaje de aciertos. 


yA 


Los nombres y símbolos se almacenan en unos DATA. Se colocarán de acuerdo con 
el orden que marcan sus números atómicos. 


. Se dará una única posibilidad para acertar la respuesta correcta. Caso de fallar apare- 
cerá un mensaje de error indicando cuál era la respuesta correcta. 


. Una presentación adecuada podría ser la siguiente: 


SUE ELEMENTO TIENE POR MUMERO 
LALVREMNCIO 
CAREOANO 
MOBELIO 
CROMO 


ERROR,LA RESPUESTA CORRECTA Es 
LAVUREMNCEITO 


TANTO POR CIENTO CE ACIERTOS: 


mí 
úl 


8 BORDER 4: PAPER 4: INK O: CLS 
? FOKE 23658,8: RESTORE 

10 DATA "HIDROGENO","H", "HELIO", "HE", “LITID", "LI", 
"BERILIO", "BE", "BORO", "B", "CARBONO", "0", "NITROGENO", 
“N", "OXIGENO", "0", "FLUOR","F", "NEON", "NE", "SODIO", “N 
A", "MAGNESIO", "MG", "ALUMINIO", "AL", "SILICIO", "SI","F 
OSFORO", "P", "AZUFRE", "S", "CLORO", "CL" 

15 DATA "ARGON", "AR", "POTASIO", "K", "CALCIO", "CA", " 
ESCANDIO", "SC", "TITANIO", "TI", "VANADIO", "Y", "CROMO", 
"CR", "MANGANESO", "MN", "HIERRO", "FE", "COBALTO", "CO" 

20 DATA "NIQUEL", "NI", "COBRE", "CU", "ZINC", "ZN", "GA 
L1O","GA", "GERMANIO", "GE", "ARSENICO", "AS", "SELENIO", 
"SE", "BROMO", "BR", "KRIPTON", "KR", "RUBIDIO", "RB", "EST 
RONCIO", "SR", "YTRIO", "Y", "CIRCONIO","ZR", "NIOBIO", "N 
Bo 

25 DATA "MOLIBDENO", "MO", "TECNECIO", "TC", “RUTENIO" 
, "RU", "RODIO", "RH", "PALADIO", "PD", "PLATA", "AG", "CADM 
10","CD", "INDIO", "IN", "ESTA/O", "SN", "ANTIMONIO", "SB" 
+» "TELURO", "TE", "IODO", "1", "XENON", "XE", “CESIO", "ES" 
“BARIO", "BA", "LANTANO", "LA", "CERIO”, "CE", "PRASEODIMI 
0", "PR", "NEODIMIO","ND", "PROMECIO", "PM" 

30 DATA "SAMARIO", "SM", "EUROPIO", "EL", "GADOLINIO”, 
"GD", “TERBIO", "TB", "DISPROSIO", "DY", “HOLMIO", "HO", "E 
RBIO”, “ER”, "TULIO", "TM", “YTERBIO", "YB", "LUTECIO", "LU 
", "HAFNIO", "HF", "TANTALO", "TA" 

35 DATA "WOLFRAMIO","W", "RENIO", "RE", "OSMIO","0S”, 
"IRIDIO", "IR", "PLATINO", "PT", "ORO", "AU", "MERCURIO", " 
HG", "TALIO", "TL", "PLOMO", "PB", "BISMUTO", “BI”, "POLONI 
0","FO", "ASTATO", "AT", "RADON", "RN", "FRANCIO", "FR", "R 
ADIO", "RA", "ACTINIO", "AC", "TORIO", "TH" 

40 DATA "PROTOACTINIO"”, "PA", "URANIO", "U", "NEPTUNIO 
", "NP", "PLUTONIO", "PU", "AMERICIO", "AM", "CURIO", "CM", 
“BERKELIO", "BK","CALIFORNIO", "CF", "EINSTENIO", "ES"," 
FERMIO", "FM", "MENDELEVIO", "MD", "NOBELIO", "NO", "LAWRE 
NCIO", "LR", "KURCHATORIO", "KU", "HAHNIO", "HA" 

50 DIM>A$(105,12): DIM B$(105,2) 

60 FOR I=1 TO 105 

70 READ A$(1),B$(1) 

80 NEXT 1 

$0 LET PREG=0: LET ACIERTOS=0 

1009 LET P=INT (105%RND)+1 

110 LET O=INT (6*RND)+1 

120 IF Q=1 THEN PRINT "CUAL ES EL SIMBOLO QUIMICO 
DEL: ": PRINT At (P) 

130 1F O=2 THEN PRINT "CUAL ES El NOMBRE DEL: "5BS 


(P3 


140 IF O=3 THEN FPRINT "CUAL ES EL NUMERO ATCEMICO == 
EL:": PRINT ASP) 

150 1F Q=4 THEN FPRINT "CUAL ES EL NUMERO ATOMICO D 
EL:": PRINT Bs(P) 

150 IF 0O=5 OR Q=6 THEN PRINT "QUE ELEMENTO TIENE F 
OR NUMERO ATOMICO:"; 

170 LET C=INT (4éRND)+1: DIM R(4) 

180 FOR J=1 TO 4 

190 IF Q=1 AND J=C THEN PRINT : PRINT TAB 12;E%R(P) 
: 60 TO 250 

191 IF Q=2 AND J=C THEN FRINT : PRINT TAB 124% (P 
< 60 TO 250 

192 IF Q=3 AND J=C THEN PRINT : PRINT TAB 12;P: GQ 
TO 250 

193 IF Q=4 AND J=C THEN FRINT : PRINT TAB 123P: 60 
TO 250 

194 IF O=5 AND J=C THEN PRINT : PRINT TAB 12;5BS$S(P) 
: 60 TODO 250 | 

195 IF Q=5 AND J=C THEN PRINT : PRINT TAB 12;4%(P) 
< GO TO 250 

200 LET R(J)=INT” (105%RND)+1: 1F R(J)=P THEN 60 TU 
200 

210 FOR L=1 TO J-1 

220 IF R(J)=R(L) THEN GO TC 200 

230 NEXT L 

240 IF O=1 THEN *PRINT : FRINT TAB 12;3BS5(R:J)) 

241 IF O=2 THEN PRINT : PRINT TAB 12;54$(R(J:) 

242 1F 0=3 THEN PRINT : PRINT TAB 12;3R(J) 

243 1F 0=4 THEN PRINT : PRINT TAB 125R(J) 

244 IF O=5 THEN PRINT : PRINT TAB 12;B*%(R:<J)) 

245 1F O=6 THEN PRINT : PRINT TAB 12;A3%(R(J>) 

250 NEXT y 

2339 PRINT : PRINT 

260 INFUT LINE D$: LET PREG=PREG+1 

270 IF (Q=1 OR (G=5) AND LEN D$=1 THEN LET Di=D$-" 
280 1F (Q=1 OR Q=5) AND D$<>B*$(P)> THEN PRINT O: PRI 
NT "ERROR,LA RESPUESTA CORRECTA ES:":2 PRINT : PRINT 


TAB 12;B$+$(P): 


PRINT 


GO TO S10 


290 IF (Q=1 OR 0=5) AND D$=E$(P) THEN GD TO 500 
293 IF O=2 OR Q=5 THEN GOD TO 320 


300 IF (0=3 


TAB 


310 IF (Q0=3 OR 0Q=4) 
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123P: 


PRINT 


THEN 


OR (Q2=4% AND VAL D$<>P THEN PRINT 
NT "ERROR ,LA RESPUESTA CORRECTA ES:" 
GO TO 510 
AND VAL D*=F 


PRINT 


50 


PRI 
PRINT 


TO 500 


320. 1F LEN D*=12 THEN 6C TO 340 

330 FOR K=1 TO 12-LEN D$: LET D$=D%+" "s NEXT E 

3490 iF DSCAS(P) THEN PRINT : PRINT "ERRCR,LA RESF 
UESTA CORRECTA ES :": PRINT : PRINT TAB 123A5(P):< PR 
INT : GO TO 510 

900 PRINT : PRINT FLASH 13"CORRECTO": LET ACIERTOS 
=ACIERTOS+1 ; 

210 PRINT : PRINT "TANTO POR CIENTO DE ACIERTOS:": 
PRINT : PRiNT TAB 123INT (1900*ACIERTOS/PREG?: PAUSE 
Oz CLS : 60 TS 100 


NOTAS AL LISTADO: 


12 En el Spectrum al dimensionar las variables alfanuméricas hay que indicar su longitud 
máxima (línea 50); el nombre del elemento tiene una longitud máxima de 12 caracte- 
res, y su símbolo de 2. 

2a A lo largo del programa aparecen expresiones del tipo A$(X); en otros ordenadores 
sustituirlas por MIDS (AS, X, 1). 
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LEY D'HONT 


Construir un programa para repartir los escaños, en unas elecciones, de 
acuerdo con la ley D'Hont. 


La ley D'Hont sigue el siguiente algoritmo: 


1. Una vez efectuado el recuento de votos se desechan las candidaturas que 
han obtenido menos del 3 % de los votos. 


2. Se divide el total de votos de cada lista por 1, 2, 3, etc. hasta un número 
igual al de escaños. 


3. Se otorgan los escaños a las listas que poseen mayores cocientes, proce- 
diendose a la atribución en orden decreciente de dichos cocientes. En 
caso de duda en su aplicación consultar BOE 23-11-1977. 


NOTAS: 


1. En pantalla se mostrará el cuadro de las divisiones parciales y el de los resultados defi- 
nitivos. Para obtener una buena presentación el nombre de los partidos tendrá un má- 
ximo de 5 caracteres; además, si hay más de 4 partidos que sobrepasan el 3 % de los 
votos o si hay más de 8 escaños a repartir no se mostrará en pantalla el cuadro de las 
divisiones parciales, por dificultad de impresión. 


2. Si el número de escaños a repartir es muy alto se tarda bastante tiempo en presentar 
los resultados. 


3. Para evitar complicar el programa y para hacerlo más rápido se introducen las listas 
en orden decreciente según el número de votos. 


4. Como ejemplo de la presentación en pantalla, veamos los resultados obtenidos en la 
provincia de León en las elecciones legislativas de Octubre de 1982. 


El cuadro de divisiones parciales es: 


LATA LOL IDO ad. 
PSME EP ocre 

AIT1 13320e 2doSda de 1714 
WT S6S65dsS O A ES 
VUTeS dlddas Ss1S50= 15 5 a 
A SSA SES 35=te 1134= 
WT: 265311 15 Sa 1 mid 
IT S22=01l o Pl a “JAS 
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y los resultados definitivos: 


PARTICO . ESXCAROS ZoaTos 
EE OE eE L332a0a 
ae = 24dsas 
Uco 1 E o Mi 


7 POKE 23658,8: RESTORE : CLS 
8 DATA 126,0,66,98,82,74,70,0 
O FOR X=0 TO 7: READ Az POKE USR "N"+X,A: NEXT X 
20 INPUT “NUMERO DE ESCA 0S A REPARTIR ";E 

30 INPUT "NUMERO DE LISTAS PRESENTADAS "; 

40 DIM V(L): DIM A(L,E): DIM A$(L,5) 

50 PRINT BRIGHT 153AT 10,0; "INTRODUCE El NUMERO DE 
VOTOS DE LA LISTA QUE TIENE MAYOR NUMERO DE VOTOS¿L 
UEGO EL DE LA SISUIEN-TE EN ORDEN DECRECIENTE, Y ASI 

SUCESIVAMENTE" 

60 LET S=0 

70 FOR I=1 TO L | 

80 INPUT ("NOMBRE DE LA LISTA NUMERO "31),8$(1) 

85 INPUT ("NUMERO DE VOTOS DE LA LISTA NUMERO 
"sI3" ")5VCI) 

90 LET S=S+V(I) 

100 NEXT 1 

110 REM DESECHAR LAS LISTAS CON MENOS DE UN 3% DE L 
Os YOTOS 

120 FOR l=1 TO L 

130 IF V(1)<3*S5/100 THEM LET L=1-1: 60 TO 150 

140 NEXT 1 

150 REM PRESENTACION DE LOS RESULTADOS 

160 CLS 

170 PRINT "VOTOS VALIDOS "3S | 

175 IF L>4 OR E>8 THEN 50 Tb 200 

180 FOR I=1 TO Lz PRINT BRIGHT 1307 2,7*1-23M%(1): 
NEXT 1 

200 FOR 1=1 TO L 

210 FOR J=1 TO E 

220 LET A(1,J)=INT (V(1)/J) 

225 IF L>4 OR E>8 THEN 50 TO 250 
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230 PRINT AT 3+2*J,03"VT/"33J 
240 PRINT AT 3+2*J,7*1-25A(1,3) 
250 NEXT J 
260 NEXT 1 
300 INPUT "PULSA UNA TECLA PARA SEGUIR "3 LINE V%: 
CLS 
305 REM BUSCAMOS LOS E COCIENTES MAS ALTOS 
310 DIM E(L) 
320 LET ESCA=0 
225 PRINT FLASH 13 "RESULTADOS DEFINITIVOS" 
330 FOR I=1 TO L 
340: FOR J=1 TO E 
345 IF A(1,J)=0 THEN G0 TO 370 
2350 FOR K=1 TO L 
252 FOR H=1 TO E 
354 IF A(K,H)>4(1,J) THEN 60 TO 380 
356 NEXT H 
358 NEXT K 
360 LET E(1)=E(I3+1: LET A(1,3)=0: LET ESCA=ESCA+1: 
IF ESCA=E THEN 69 TO 3906 
370 NEXT J 
380 NEXT 1 
385 GO TO 330 
3790 REM ESCA OS OBTENIDOS 
210 PRINT BRIGHT 15487 3,0;"PARTIDO  ESCA 0S VOTO 
s" 
420 FOR I=1 TO L 
30 PRINT BRIGHT 1587 3+2x*1,03A$(1)307T 3+2x*1,123E( 
1)5AT 3+2*1,193V (1) 
450 NEXT 1 


NOTAS AL LISTADO: 


1a En las líneas 7 y 8 se ha definido la Ñ. Para introducirla en el programa teclear N en 
modo GRAPHICS (líneas 20, 390 y 410). 


2a Con la línea 11 se escribe directamente en mayúsculas. 


3a V(I) es el número de votos del partido |, A (I, J) son sus cocientes parciales y A$ (1) 
su nombre. En el Spectrum al dimensionar cadenas hay que indicar su longitud 
máxima (en nuestro caso 5 caracteres), por lo que en la línea 4M introducimos 
AS (L, 5); en otros ordenadores ésto no es necesario. 
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GRAFICAS 


Dadas las notas de un curso, tanto en forma numérica (de O a 10) como 
indicando el número de alumnos que hay con cada determinada calificación 
(MD, IN, ...), se imprimirá la tabla de calificaciones y, además, éstas se represen- 
tarán gráficamente mediante un histograma, un diagrama de sectores, un diagra- 
ma vertical y un polígono de frecuencias. Por ejemplo: 


TABLA DE CALIFICACIONES 


CALA 


HISTOGRAMA 


MECITIA: EE 


A o A 
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DIAGRAMA DE SECTORES 


MHMECIA: EP VALOR. HAXIMO: El 


DIAGRAMA VERTICAL 
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POLIGONO DE FRECUENCIAS 


MEDIO: A MALO. MAS Im: E 


NOTAS: 


1. Es relativamente fácil adaptar este programa a cualquier proceso estadístico: estatu- 
ras, peso, edad, etc. 


10 REM GRAFICAS 
15 RESTORE 

20 DATA "MD","IN","SU", "BI", "NO", "SO"  : 
50 BORDER O: PAPER O: INK 7: CLS : POKE 236509,100: 
POKE 23658,8 


INPUT "CURSO? ";E%$ 

INPUT " NUMERO DE ALUMNOS? "3N 

IF N21 OR N<>INT N THEN 60D TO 7O 
DIM A(N): DIM T(7): DIM C$16,2) 

FOR X=1 TO 6: READ C$(X): NEXT X 

REM ENTRADA DE CALIFICACIONES 

INPUT "LAS CALIFICACIONES ME LAS DAS: 


NUMERICA 2.—CON MD, IN,SU.... 
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170 1F R<>1 AND Re<>2 THEN 60 TO 110 
180 IF R=i1 THEN GO TO 260 

190 LET S=0 

200 FOR X=1 TO 6 


210 INPUT ("DAME El NUMERO DE "5C$(X35"  ")3T(X)2 L 
ET S=S+T(X)3 IF S>N THEN 60D TO 230 
220 NEXT X 


Z30 IF S<oN THEN INPUT "DATOS NQ CORRECTOS ,PULSA 
ENTER "5¡R*$: GO TO 190 

240 LET EPA SLCLIESS JT EZLI FS DETESIFO OTIS ES, OR 
T(SI)+9HT (6))/N 

245 LET MEDIA=INT (MEDIA*100>)/100 

250 60 TO 330 

260 LET ST=0 

270 FOR X=1 TO N 

280 INPUT ("CALIFICACION DEL ALUMNO "3x3" "9)360x) 

290 IF AtX3<0 OR A(X)>10 THEN 69 TO 290 

300 LET ST=ST+A1X) 

305 LET M=(A1X)<2Z2)+1A1X3>=2 AND A(X)<3)xX2+(A(xX)>-=S= 
AND A(X)<6)*3+(A41X)>=6 AND A(X)<73)x4+1£A(X)>=7 AND Af 
X9:<38. S)5+1(A(X)5=8.5)*6 

310 LET T(M)=T(M3)+1: NEXT X 

320 LET MEDIA=INT (ST/N*x100)>/120 

330 PRINT AT 09,25"E£ALIFICACIONES EEL CURSO: ";E%S 

331 PRINT AT 4,63"MUY DEFICIENTE: "5Ti1)5AT 6,583" 
UFICIENTES "5T(2); AT 3,63"SUFICIENTE:"53T(3)53AT 10,63" 
BIEN: "35T(4)348T 12,653"NOTABLE:"3T(5S)5AT 14,63 "SOSRESA 
LIENTE:"57T1(6) 

332 FOR X=1 TO 6 

333 1F TiX)>=T (7) THEN LET Ti7)=T(X) 

335 NEXT X 

349 INPUT "PARA SEGUIR,PULSA ENTER "5R%$: CLS 

350 REM PRIMERA GRAFICA 

360 PRINT AT 21,23"MD"5TAB 75"IN"5TAB 12;"SU";sTAB 1 
73"BI"5TAB 2253"NO"5 TAB 273"SO" 

370 PLOT 253,7: DRAW -2535,0: DRAW 0,148 

380 FOR X=48 TC 124 STEP 38: PLOT 1,X: DRAW 8,0: NE 
XT X 

390 FOR X=1 TO 6: LET AR=40*xX-24: LET OR=2: INK X+1 

400 FOR Y=i TO 150%T(X)/T(7): PLOT AB,OR: DRAW 16,0 
: LET OR=0R+i2z NEXT Y: NEXT X 

410 FRINT AT 0,053"MEDIA:"5 INVERSE 1;MEDIA 

420 PRINT AT 0,1435 "VALOR MAXIMO:"3 INVERSE 1:T1(7) 

430 INPUT "PARA SEGUIR, PULSAR ENTER "5R%$: CELS 

450 REM SEGUNDA GRAFICA 
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460 CIRCLE 127,80,80: PLOT 127,80: DRAW 80,0 

470 LET M=0 

480 FOR X=1 TO 5: LET M=M+T(X) 

490 PLOT 127,80 

500 DRAW 80*C0S (2%PI*M/N),SO*SIN (2*PIXM/N) 

510 MEXT X 

520 LET S=T(1) 

530 FOR X=1 TO 6 

540 1F X=1 THEN 60 TO 550 

550 LET S=S+T(X)+T(X-1) 

560 IF T(X)=0 THEN 60 TO 580 

570 PRINT  INVERSE 15 INK X+15A8T 21-(9O0+BO%*SIN (PIx+ 
S/N))/8, (127+80*C0S (PI*S/N))/8-13041(X) 

580 NEXT X 

585 PRINT AT 0,03"MEDIA:"5 INVERSE 1;MEDIA 

586 PRINT AT 0,1455"VALOR MAXIMO: "5 INVERSE 15717) 
590 INPUT "PARA SEGUIR,PULSAR ENTER "3R$: CLS 

500 REM TERCERA GRAFICA 

620 PLOT 255,8: DRAW -255,0: DRAW (0,148 

625 PRINT AT 21,25"MD"5TAB 7;3"IN"5¿TAB 12;"SU"¿TAB 1 
753"BI"3TAB 2253"NO"53TAB 27; "S0" 

630 FOR X=48 TO 124 STEP 38: PLOT 1,X: DRAW 8,0: NE 
TOA 

640 FOR X=1 TO 6: IF T(X)=0 THEN 60 TO 480 

650 LET Y=150*T(X) /N 

660 PLOT 38*X-23,8: DRAM 0, 150*T(X)/T(7): DRAW 28,0 
z DRAW 0,-150*T(X)/T(7): DRAW 10,10: DRAW 0, 150*T(X) 
/T1(7): DRAW -10,-10: DRAW -38,0: DRAW 10,10: DRAW 38 
0: DRAW 0,-150*T(X)/T(7): DRAW -38,0: DRAW 0, 150*T( 
X)/T17): PLOT 38*X-23,10: DRAW 10,10 

680 NEXT X 

670 INPUT "PARA SEGUIR, PULSAR ENTER "3R$: CLS 


700 REM CUARTA GRAFICA 

710 PRINT AT 21,23"MD"5TAB 73"IN"3TAB 12;3"SU"53TAB 1 
J3"BI"53TAB 2253"NO"5 TAB 273"SO" 

720 PLOT 255,7: DRAW -255,0: DRAW 0,148 

730 FOR X=48 TO 124 STEP 38: PLOT 1,X: DRAW 8,0: NE 
XT X 

740 PLOT 20,T(1)/T (7) *150+7 

750 FOR X=2 TO 6 

760 DRAW 40, (T(X)-—T (X-1))x150/7T7 (7) 

770 NEXT X 

773 PRINT AT 0,03"MEDIA:"3 INVERSE 153MEDIA 

776 PRINT AT 0,1435 "VALOR MAXIMO: "3 INVERSE 13T(7) 

780 INPUT "PARA COMENZAR, PULSAR ENTER "5R%: RUN 
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NOTAS AL LISTADO: 


12 Las variables empleadas en el programa son: 


N número de alumnos 

A(I) calificación del alumno número | 

S es la suma del total de alumnos calificados 

ST es la suma de calificaciones 

T(1) total de MD, T(2) total de IN, etc. 

C$(6,2) son las abreviaturas de las notas: MD, IN, ... SO. En otros ordenadores no es 


preciso indicar el segundo índice, 2. 


2a En la línea 240 está el baremo de calificaciones, que puede ser cambiado por el 
usuario. 
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TUTORIA 


Construir un programa para que el profesor pueda llevar la tutoría de un 
curso según el siguiente menú: 


PROGRAMA TUTORTA 


MEN 


Bl. - INTRODUCIR LISTAS 
El. - INTRODUCIR NOTAS 
8.-SACAR LISTAS 

8. -SACAR NOTAS 

8. -SACAR ESTADISTICA 
HB. -CORREGIR LISTAS 
B.-CORREGIR NOTAS 


ELIGE UNA OPCION 


NOTAS: 


1. A continuación veamos el funcionamiento de las distintas opciones: 
INTRODUCIR LISTAS 


— El ordenador preguntará el número de alumnos, de asignaturas y curso (líneas 
255, 256, 260) 

— Seguidamente se pedirán los apellidos y el nombre de cada alumno (línea 330) 

— Finalmente daremos el nombre de cada una de las asignaturas de ese curso (línea 
390) 

— Una vez introducidos todos los datos, se grabarán en cinta (línea 480) 

— Todos los datos anteriores se guardan en una misma variable, con el fin de que 
resulte más fácilmente almacenable. 


INTRODUCIR NOTAS 


— Comenzaremos indicando las notaciones que deben usarse para señalar cada una 
de las posibles calificaciones del alumno (líneas 532-539). 

— Se preguntará el número de evaluación y, acto seguido, se pedirán las calificacio- 
nes de cada uno de los alumnos (línea 550, 5270). 

— Cuando ya se hayan introducido todos los datos, se grabarán en cinta (línea 730). 
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SACAR LISTAS 


— Emplearemos una subrutina (línea 1010) con el fin de que en caso de no tener en 
memoria los datos del curso, los busque en la cinta-cassette. 

— Es conveniente emplear el cuentavueltas para saber en qué parte de la cinta se en- 
cuentran los datos. 

— Ejemplo de lista: 


LISTA DE: 3C 
APELLICOS Y 


ABIAN_ ALFONSO JOVITA 
2 ALCUBIERRE DORADO FELIPE 
3 ALONSO MARQUEZ JAVIER 
de ALZUETA MARTINEZ M.UJUE 
3 ARRANZ PEREZ PEDRO 
D 
5 
E 


SBELENGUER FERNANADEZ M.PILAR 
SELLE FERRANDO FERNANDO 
BRETÓN E NA Ma MAR 


19 CUESTA FUERTES _M.CARMEN 


13 DOMINGUEZ GOMEZ FELIX 

14 ESCASRAIN FERNANDEZ _M.JESUS 
15 ESTANES RODRIGUEZ ANA 

15 FERRERO VILLALBA M.PILAR 
17 GARCIA ALBERT AN 

13 GARCIA HERMOSO RAFREL 

19 GARCIA MARTIN _ M.JOSE 

20 GRACIA CARPINTERO _ LUISA 
21 GUTIERREZ MARTINEZ CARLOS 
22 LACARTA_ BUIL NEO 

23 LOPEZ GOMEZ M,CARMEN 

24  LLANAS SARJAJAL GERMAN 

25 LOMA_ESCALADA FELIX JOSE 
25 LOPEZ CALUO_ CARLOS 

27 MANERO PEREZ _M.JESUS 

23 MARTIN TRISTE 1 

23 RTINEZ PEREZ 

30 MARTINEZ VILLA a 
31 MURCIA LOPEZ ALE 

32 MUNOZ BUERA_ OLGA 

339 ORTE VILLAFRANCA JOSE 

34 ROYO PUERTO MILAGROS 

35 RUIZ GARCIA_M.EUGE 

38 SANCHO PEREZ PEDRO 

37 SANCHO PINA_ JOSE 

398 VALDES BESCOS M.PILAR 

39 VIVES GIMENEZ M. JESUS 


SACAR NOTAS 


— La forma de proceder en este caso es similar al anterior, con la diferencia de que al 
final se ofrecen dos opciones 
1. Sacar acta de evaluación 
2. Editar boletines 

— Ejemplo de acta de evaluación 


1, NO IN BI BI NO SU 61 El BI 
2 IN IN SU 6I NO BI SU 50 SU 
3 BI BI SU BI 50 BI SO SU 50 
4 50 NO IN BI Bl EX SU IN BI 
> IN SU IN BI BI Bl IN SU NO 
5 NO IN IN BI NO SU SU SU Su 
? SU SU BI SU NO NO SU BI SU 
3 MO MD IN SU SU SU IN IN SU 
El SU IN SU SU NO SU IN IN SU 
10 IN MD MD SU SU BI IN MD SU 
11 SU SU NO SU NO SU BI NO NO 
12 IN MD IN SU SU SU IN 61 SU 
13 IN IN IN 6Il BI 861 IN IN SU 
14 SU IN NO 61 SU SU BI 6Il BI 
15 SU IN SU SU SU SU SU IN BI 
15 SU SU BI BI NO BI IN El NO 
de SU IN IN SU BI SU SU SU NO 
13 NO BI NO BI NO BI BI SO BI 
19 IN SU BI BI NO SU SU IN NO 
20 IN IN IN SU SO NO IN IN BI 
21 IN IN IN SU BI 8l IN IN SU 
22 IN SU IN BI 61 SU SU SU NO 
23 IN 1N 1N BL BL BI: BL 1N 310 
24 SU SU BI BI NO SU BI NO NO 
25 NO BI SU BI 50 Ex NO NO NO 
25 BI SU IN SU 50 BI SU IN SU 
2? IN NN IN 6Il NO SU MD MD IN 
29 IN IN IN SU BI SU IN IN IN 
29 IN IN IN 6l BI Bl IN MD SU 
30 NO BI NO 6l NO SU NO BI NO 
31 50 BI NO BI SO BI 50 350 NO 
32 SU SU IN BI NO BI BI IN NO 
33 IN IN IN SU NO SU IN MD SO 
34 SU SU IN BI NO NO SU SU NO 
35 3U IN SU SU SU NN SU SU NO 
35 SU IN SU SU 50 BI SU IN SU 
37 SI SU IN BI Bl BI IN NO NO 
33 SU SU NO BI 6I SU IN SU NO 
39 SI SU SU BI BI NN SU BI SU 
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ps 


— Ejemplo de boletines 


ABIAN ALFONSO JOVITA 
UM: 1 


N EVAL: 1 
FRANCES NO 
GEOGRAFIA H IN 
FILOSOFIA BI 
RELIGION BI 
DISENO NÓ 
EFISICA su 
MATEMATICAS BI 
FQUIMICA BI 
CIENCIAS N 61 
ALCUBIERRE DORADO FELIPE 
: EVAL: 1 
FRANCES IN 
GEOGRAFIA H IN 
FILOSOF IA su 
RELIGION =d 
DISEÑO NÓ 
EFISICA BI 
MATEMATICAS su 
FQUIMICA 50 
CIENCIAS N su 
ALONSO MARQUEZ JAVIER 
Mm:3 EVAL: 1 
FRANCES BI 
GEOGRAFIA H BI 
FILOSOFIA su 
RELIGION BI 
DISENO 50 
EFISICA BI 
MATEMATICAS s0 
FQUIMICA su 
CIENCIAS N 50 


e e 2 ms 10 e e e e e y A a A A es ss e e e e A e e e e O e e 


SACAR ESTADISTICAS 


— En este apartado obtendremos la nota media global del curso, la nota media de 
cada asignatura y la nota media de cada uno de los alumnos. 
— Ejemplos: 


El mal Mata TP) 


NUMERO DE ALUMNOS 39 
NOTA MEDIA GLOBAL S.S3 


FRANCES s.2 

GEOGRAFIA H 4.37 

FILOSOFIA 4.54 

RELIGION Sil 

DISEÑO de LOMA ESCALADA FELIX JOSE 

EFISICA 5.47 

MATEMATICAS 5.12 

FQUIMICA 5.02 

CIENCIAS N 6.5 
2. Todas las listas, actas y boletines saldrán simultáneamente por pantalla e impresora. 
3. El programa, tal como se facilita, está preparado para una impresora GP-50S de 


SEIKOSHA, por ser la más usual. Con muy pequeñas modificaciones o ninguna, es 


válido para la mayoría de las impresoras. 


REM TUTORIA 

RESTORE 

BORDER 1: PAPER 1: INK 7: CLS 

REM DEFINICION DE LA " 

FOR X=0 TO 7: READ A 

POKE USR "N"+X,A: NEXT X 

DATA 62,0,34,50,42,38,34,0 

POKE 23658,8: POKE 23409,100 

DIM N$1(3,2) 

CLS 

PRINT AT 0,73 "PROGRAMA TUTORIA" 
PRINT AT 3,113 "MENU" 

PRINT AT 6,53"1.—INTRODUCIR LISTAS " 
PRINT AT 8,53"2.-INTRODUCIR NOTAS" 
PRINT AT 10,53"3.-SACAR LISTAS" 
PRINT AT 12,55"4.-SACAR NOTAS" 
PRINT AT 14,53"5.-SACAR ESTADISTICA" 
PRINT AT 16,5;"6.—CORREGIR LISTAS" 
PRINT AT 18,53"7.-CORREGIR NOTAS" 
INPUT "ELIGE UNA OPCION "50 

IF INT 0<>0 OR 0<1 OR 058 THEN 60 TO 
GO TO 250*0 

REM INTRODUCIR LISTAS 
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253 COLS : LET Z=0 

255 INPUT "NUMERO DE ALUMNOS "3N 

256 INPUT "NUMERO DE ASIGNATURAS "3NA 

257 DIM N$ (N+3+NA, 28) 

258 LET N$(1)=STR$ N: LET N$(3)=STR$ NA 

260 INPUT "CURSO? (EJEMPLO:1A) "3N$(2): PRINT "CUR 
SO: "3N$(2,1 TO 2): LPRINT "CURSO: "¿N$(2,1 TO 2) 

265 PRINT : LPRINT 

270 PRINT “NUM APELLIDOS Y NOMBRE" 

290 LPRINT "NUM APELLIDOS Y NOMBRE" 

300 FOR X=0 TO 31: PRINT TAB X3"-"5: LPRINT TAB X3" 
"32 NEXT Xz PRINT : LPRINT 

310 FOR X=4 TO N+3 

225 IF Z=1 THEN GO TO 335 

330 INPUT ("APELLIDOS Y NOMBRE DEL ALUMNO "3X-33” * 
31388 00 

7353 POKE 23692,255 

340 PRINT X-35TAB 43N$005 

350 LPRINT X-35TAB 43N$(X);5 

355 LPRINT 

360 NEXT X 

265 IF Z=1 THEM GO TO 460 

380 FOR X=1 TO VAL N$(3,1 TO 2) 

390 INPUT ("NOMBRE DE LA ASIGNATURA "3X),M$(N+3+X) 
400 NEXT X:z GO TO 470 

460 INPUT "PARA SEGUIR PRESIONA TECLA "3W$: CLS : G 
O TO 50 

470 INPUT "GRABAR? (S/N) "3W$: IF W$<>"S" THEN G0 TO 
50 

480 SAVE "LISTA "+N$(2,1 TO 2) DATA N$() 

490 60 TO 50 

500 REM ENTRADA NOTAS 

510 GO SUB 5000: CLS 

530 LET N=VAL N$(1): LET NA=VAL N$(3) 

531 PRINT "SOLO ADMITO ESTAS CALIFICACIONES" 

532 PRINT AT 3,5;"MUY DEFICIENTE: MD" 

532 PRINT AT 5,5; "INSUFICIENTE: IN" 

534 PRINT AT 7,55 "SUFICIENTE: SU" 

535 PRINT AT 9,5; "BIEN:BI" 

536 PRINT AT 11,53 "NOTABLE: NO" 

537 PRINT AT 13,5; "SOBRESALIENTE: SO" 

538 PRINT AT 15,53"NO HAY NOTA: NN" 

539 PRINT AT 17,5; "EXENTO:EX": INPUT "PRESIONA UNA 
TECLA PARA SEGUIR "3K$: CLS 

540 DIM J$(N,NA, 2) 
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350 INPUT "EVALUACION? “3NE 
560 60 SUB 5100 
570 LET Z2=0: 60 SUB 5200 
580 CLS 
720 PRINT FLASH 153AT 10,33 "GRABANDO NOTAS DEL CURS 
O "3C0$3AT 12,93" EVALUACION "5NE 
730 SAVE "NOTAS "+C$+" "+STR$ NE DATA I$%0 
740 GD TO 50 
750 REM SACAR LISTAS 
750 GO SUB 5000 
773 LET Z=1: CLS : LET N=VAL N$(1,1 TO 2) 
776 PRINT "LISTA DE:"5C$: PRINT 
777 LPRINT "LISTA DE: "50%: LPRINT 
780 60 TO 270 
1000 REM SACAR MOTAS 
1010 60 SUB 5000 
1020 LET N=VAL N$f1): LET MA=VYAL N$(3) 
1030 INPUT "EVALUACION "¿NE 
10935 CLS 
10936 INPUT "TENGO LAS MOTAS EN MEMDRIA?(S/N) "3H$: C 
LS 
1037 IF W$="S" THEN 60 TO 1070 
1040 PRINT FLASH 13487 10,6; "BUSCANDO NOTAS DE "¿C%; 
AT 12,125" EVAL: "3NE 
1050 LOAD "NOTAS "+CS%+" "+STRS NE DATA J+() 
1060 CLS 
1070 PRINT  INVERSE 13AT 2,8; "SALIDA DE NOTAS" 
10890 PRINT AT 4,55"1.—ACTA DE EVALUACION" 
1070 PRINT AT 6,5;3"2.—BOLETINES" 
1100 INPUT "ELIGE UNA OPCION “3X:z CLS 
1110 1F X<>INT X OR X<1 OR X>2 THEN CD TO 1070 
1120 IF X=2 THEN 60 TO 117€ 
1125 PRINT TAB 7;3"ACTA DE EVALUACION": PRINT 
1126 LPRINT TAB 753"ACTA DE EVALUACION": LPRINT 
1130 GO SUB 5100 
1140 LET Z=1: 60 SUB 5200 
1150 INFUT "QUIERES LOS BOLETINES (S/N) "3W$: CLS 
1160 IF W$<>"S" THEN CLS : 60 TO 50 
1170 INPUT “DESDE “5153" HASTA "5F 
1175 IF 1<1 OR I>VAL N$(1) OR I<>INT 1 OR F<l OR F>V 
AL N$(1) OR F<>INT F THEN 60 TO 1170 
1180 FOR X=1 TO F 
1185 PRINT : PRINT NM$(X+3): PRINT "NUM: "3X3TAB 253” 
EVAL: "3 NE | 
1186 LPRINT : LPRINT N$(X+3): LPRINT "NUM: "3X3TAB 25 
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3" EVAL:"3 NE 

1187 FOR H=0 TO 31: FRINT TAB H53"-"5: LPRINT TAB E5” 

—"3:2 NEXT Hs LPRINT 

1190 FOR Y=N+4 TC N+Z3+NA 

1200 PRINT N$(Y, 1 TO 11>,J%(X, Y-N-3)2 

1210 LPRINT N$(Y,1 TO 11>,J%(X, Y-N-3) 

1211 POKE 23892, 255 

12720 NEXT Y 

1225 PRINT : PRINT : LPRINT : LFRINT 

1226 FOR H=0 TO Zi: PRINT TAB H53"-"3: LPRINT TAB H;3" 

"32 NEXT H 

1227 PRINT : LPRINT 

1230 NEXT X 

1249 INPUT "PRESIONA TECLA PARA MENU "3VS$: 50 TO 50 
1250 REM ESTADISTICAS 

1252 LET K$="MDINSUBINOSO": LEY NC=0 

1255 60 SUB 5000 

1250 LET N=VWAL N$(13): LET NA=VAL N$(3): DIM S(NA, 6): 
DIM H(6) 

1255 INPUT "NUMERO DE EVALUACION ";NE 

1270 ULS 

1273 INPUT "TENGO EN MEMORIA LAS NOTAS (S/N) "3W$ 
1280 IF W$="S" THEN 50 TO 1290 

1282 PRINT FLASH 13AT 10,33 "BUSCANDO NOTAS DEL CURS 
O "3E0C$553AT 12,93" EVALUACION ";NE 

1285 LOAD “NOTAS "+C$+" "+STR$ NE DATA J$() 

1270 ELS 

1292 INPUT *1.-—TODO EL. CURSO 2.-UN AL 
UMNO "5X 

1293 I1F X=2 THEN GO TO 1380 

1295 FOR Y=1 TO NA 

1300 FOR X=1 TO N 

1305 FOR V=1 TD 6 

1310 1F JI%(X, Y)=K$ (2*V-1 TO 2xV) THEN LET S(Y,V)=S( 

Y,Vit+iz LET H—H(W)=HA(V)+1:2 GO TO 1320 

1315 NEXT Y 

1316 LET NC=NC+1 

1320 NEXT X 

1325 NEXT Y 

1330 LET MEDIA=(H(1)+H(2)%3., 9+H13)%5. 54H 14)*6.3+H 13) 

*7.5+H (6)9) / (NENA-NC) 

13353 LET MEDIA=INT (MEDIA*100)/100 

1340 PRINT "CURSO: "5C%, 

1341 LPRINT "CURSO: "3C%, 

1342 PRINT "EVALUACION: "3NE: PRINT 
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1343 LPRINT "EVALUACION: "¡ME: LPRINT 
1344 PRINT "NUMERO DE ALUMNOS "“¿N: PRINT 
1345 LPRINT "NUMERO DE ALUMNOS "3Mz LPRINT 
1346 PRINT "NOTA MEDIA GLOBAL "3MEDIA: PRINT 
1347 LPRINT "NOTA MEDIA GLOBAL "3MEDIA: LPRINT 
1348 PRINT : PRINT "NOTAS MEDIAS": PRINT 
1349 LPRINT : LPRINT “NOTAS MEDIAS": LPRINT 
1350 FOR X=1 TO NA 
1352 LET T=S(X,1)+S(X,2)€3.5+5(X,3)*5.5+5(X,4)%5.5+5 
(X,5)7.5+S1X,6)9 
1353 LET NC=N-(S(X, 1)+S(X,2)+S1X,3)+51X,4)+S(X,5)+5( 
X,6)) 
1354 PRINT NS(N+3+X,1 TO 11)5" "3 INT (T/(N-NC)*100) / 
100 
1355 LPRINT N$(N+3+X,1 TO 11353" "5INT (T/NM*100)/100 
1358 NEXT X 
1350 INPUT "PRESIONA TECLA PARA MENU "“3VS$: CLS : 60 
TO 50 
1380 INPUT "NUMERO DEL ALUMNO "zx 
1382 DIM S(6): LET K$="MDINSUBINOSO": LET NC=0 
1383 FOR Y=1 TO NA 
1385 FOR V=1 TO 4 
1386 IF I$(X,Y)=K$(2x*V-1 TO 2%V) THEN LET S(V)=S(V) 
+1: 60 TO 1390 
1387 NEXT V 
1388 LET NC=NC+1 
1390 NEXT Y 
1394 IF NA=NC THEN PRINT "ALUMNO SIN NOTAS, PRESIONA 
TECLA PARA EL MENU": PAUSE 0: 60 TO 50 
1395 LET MEDIA=(S11)+S5(2)%3. 5+5 (3)x%5.5+5(4)*6.5+5 (5) 
*7.5+S516)9) / (NA-NC) 
1400 LET MEDIA=INT (MEDIA*100)/100 
1410 PRINT N$(X+3): PRINT 
1415 LPRINT N$(X+3): LPRINT 
1420 PRINT "MEDIA ARITMETICA: "3MEDIA: PRINT 
1425 LPRINT "MEDIA ARITMETICA: "5MEDIA: LPRINT 
1430 PRINT "EN LA EVALUACION: "¿NE PRINT 
1435 LPRINT "EN LA EVALUACION: "3 NE: LPRINT 
1440 INPUT "PRESIONA TECLA PARA MENU "3VS:: 60 TO 50 
1500 REM CORREGIR LISTAS 
1510 60 SUB 5000 
1520 CLS 
1530 LET N=VAL N$(1,1 TO 2) 
1540 INPUT "DAME EL NUMERO DEL ALUMNO "5NU 
1550 INPUT ("APELLIDOS Y MOMBRE DEL ALUMNO "5NU5)53NS 
(NU+3) 
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1560 INPUT "OTRA CORRECCION?IS/N) “¡ue 

1565 IF W$<>"S" AND W$<>"N" THEN GO TO 15609 

1570 IF W*="S" THEN GO TO 1540 

1580 PRINT FLASH 154T 10,10;5"GRABRANDC ”";C%$ 

1590 SAVE "LISTA "+N$(2,1 TO 2) DATA N$() 

1500 GO TO 50 

1Y50 REM CORREGIR NOTAS 

17560 60 SUB 5000 

1770 INPUT "NUMERO DE EVALUACION "35NE 

1780 INPUT "TENGO EN MEMCRIA LAS NOTAS (S/N) "US: CL 


1790 IF W$="S" THEN GO TO 1810 

1800 PRINT FLASH 1547 10,3; "BUSCANDO NOTAS DEL CURS 
O "350$3AT 12,93" EVALUACION "3NE 

1805 LOAD "NOTAS "+C$+" "+STR$ NE DATA J50 

1815 INPUT "DAME EL NUMERO DEL ALUMNO “3xX 

1816 IF X>N OR X<1 OR X<>INT X THEN 50 TO 1815 

1820 PRINT : PRINT "NUMERO: "3X, "EVALUACION: "3 NE 

1825 PRINT : PRINT : PRINT Né(X+3): PRINT 

1830 FOR W=1 TO NA 

1835 PRINT YUz" "5N$(3+N+WN,1 TO 1133" "3JI$(X,w 

1840 NEXT W 

1850 INPUT "DAME El NUMERO DE LA ASIGNATURA "3 Y 

1852 IF Y<1 OR Y>NA OR Y<>INT Y TEEN 60 TO 1850 
1855 INPUT ("CALIFICACION DEL ALUMNO: "3X3" EN LA ASI 
SNATURA "3 Ya" " )3J%8(X,Y) 

1850 LET L$=3$(X,Y): IF L3<>"MD" AND L$<>"IN" AND LS 
¿3 "SU" AND L3< "BI" AND L$<>"NO" AND L$<>"SO" AND L$ 
Z>"NN" AND L$<>"EX" THEN BEEP 1,2: GC TO 5270 

1865 PRINT AT Y+5,143J$(X, Y) 

1280 INPUT "OTRA MODIFICACION DEL MISMO ALUMNO? (S/N 
> "Us 

13790 1F W$="S" THEN 50 TO 1850 

1910 INPUT "OTRO ALUMNO? (S/N) "3Ws 

1715 IF W$<>"S" AND W$<>"NM" THEN GO TO 1910 

1920 IF W$="S" THEN CLS : GO TO 1815 

1930 GO TO 580 

5000 REM LECTURA LISTAS 

5010 CLS : INPUT "CURSO (EJEMPLO: 14 ) "308 

5015 IF C$=N5(2,1 TO 2) THEN 60 TO 5040 

5020 PRINT FLASH 13AT 10,10; "BUSCANDO "50€ 

5030 LOAD "LISTA "+C$ DATA N$() 

5040 RETURN 

5100 REM CABECERA ASIGNATURAS 

5110 LET Atf=" * 

5120 FOR X=1 TO VAL N$(3,1 TO 2) 
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5130 LET AS=4$+" "+N$(3+N+X,1 TO 2) 
5140 NEXT X 


3145 PRINT "CURSO: "53N$(2,1 TO 235" EVALUACION: "3 NE 


: PRINT 


5146 LPRINT "CURSO: "53N$(2,1 TO 233" EVALUACION: "3N 


Es LPRINT 

5150 PRINT — INVERSE 13"NUM "+A% 

3153 LPRINT INVERSE 15"NUM "+A$ 

3160 RETURN 

35200 REM SUBRUTINA LEER-ESCRIBIR NOTAS 


3210 FOR X=0 TO Z1: PRINT TAB X5"-"5: LPRINT TAR X5" 


"3: NEXT Xz PRINT : LPRINT 
5230 FOR X=1 TO N 
5240 PRINT X; 
245 LPRINT X; 
5250 FOR Y=1 TO MA 
5260 IF Z=1 THEN 60 TO 5290 
5270 INPUT ("CALIFICACION DEL ALUMNO: "3X3" 
GNATURA "¿N3(N+3+Y) ),J3$(X, Y) 
5275 LET L$=J$(X, Y) 
5280 IF L$<>"MD" AND L$<> "IN" AND L$<>"Ssu" 
BI" AND L$<>"ND" AND L$<>"SO0" AND L$<>"NN" 
EX” THEN BEEP 1,2: GO TO 5270 
5290 PRINT TAB 3+3*Y3J$(X,Y)5 
5295 LPRINT TAB 3+3%Y5J$(X,Y)3 
5296 POKE 23692,255 
S300 NEXT Y 
5310 PRINT : LPRINT 
3320 NEXT x 
3330 LPRINT : RETURN 


NOTAS AL LISTADO: 


12 En las líneas 25-35 definimos el carácter Ñ 


EN LA ASI 


AND L$<>" 
AND L+<>" 


22 Todos los datos referentes a un curso, exceptuando las notas, se almacenan en la va- 


riable N$ 

N$ (1) = número de alumnos = N (línea 258) 

N$ (2) = curso (línea 260) 

N$ (3) = número de asignaturas = NA (línea 258) 

N$ (3 + ¡i) = nombre y apellidos del alumno ¡ (línea 258) 
N$ (N +3 +j) = nombre de la asignatura j (línea 390) 
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100 


ga 


ya 


Ha 


Las notas se almacenan en la variable J$ (línea 5270). Esta línea está incluida en una 
subrutina (5200) que tiene la doble misión de leer y escribir notas. 


En las líneas 257, 540 dimensionamos la variable N$ y J$. Por tratarse del Spectrum 
es necesario indicar el máximo número de caracteres que pueden alcanzar dichas va 
riables. 


A lo largo del programa apárecen expresiones de la forma A$ (X), A$ (X TO Y) que 
en otros ordenadores deben sustituirse por MID$ (A$, X, 1), MIDS (A$, X, Y—X+1) 
También en otros ordenadores, se sustituirán las expresiones del tipo N$ (2, 1 TO 2), 
que aparece en la línea 260, por LEFTS (N$ (2), 2). 


DESCOMPOSICION EN SILABAS 


Construir un programa que descomponga en sílabas una frase dada. Por 
ejemplo, si la frase es “COMER PAN” se imprimirá: 


CO 
MER 
PAN 


NOTAS: 


1. Existen 17 pares de consonantes que forman parte de una misma sílaba: BL, BR, BS, 
CH, CL, CR, DR, FL, FR, GL, GR, LL, NS, PL, PR, RR, TR; de estos pares única- 
mente BS y NS unas veces forman parte de la misma sílaba (si la siguiente letra tam- 
bién es consonante) y otras no (la siguiente letra es vocal). 

2. No se considerarán diptongos puesto que, al no acentuarse las palabras, no hay un 
algoritmo para distinguir si hay diptongo cuando se encuentran juntas una vocal 
débil y otra fuerte. 

3. Asignar a cada posición de la frase un número, por ejemplo: 0 si es vocal, 1 si es con- 
sonante y —1 si es la última letra. 


S DATA "BL","BR","CH","CL", "CR", "DR", "FL", "FR", *G 
LO, "GR", "LL", "PL", "PR", "RR", "TR", "BS", "NS" 

6 BORDER S: PAPER 5: INK O: CLS 

10 POKE 23658,8: RESTORE 

20 INPUT "ESCRIBE LA FRASE "3A$: CLS 

25 DIM B(LEN A$+2) 

30 FOR I=1 TO LEN As | 

40 IF A$(I)="A" OR A$(1)="E" OR A$(I)="1" OR A311) 
="0" OR AS(I)="U" THEN LET B(I1)=0: 69 TO 40 

50 LET B(1)>=1 

50 NEXT 1 

65 LET B(LEN A$+1)=-1: LET B(LEN AS+2)=-12: LET INI 


-_ 


62 REM PRIMERA LETRA CONSONANTE 
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70 IF B(1)=1 THEN LET FOSICION=2 

73 REM PRIMERA LETRA VOCAL 

80 IF B(1)=0 THEN ' LET POSICION=1 

90 LET POSICION=POSICION+1 

100 IF B(POSICION)=0 THEN 50 TO 90 

102 REM LA FRASE ACABA EN VOCAL 

103 IF B(POSICION)=-1 AND B(POSICION-1)=0 THEN  LET 
FIN=POSICION-1: GO TO 190 

104 REM LA FRASE ACABA EN CONSONANTE 

105 IF B(POSICION+1)=-1 THEN LET FIM=POSICION: 60 
TO 190 | 

107 REM SE ACABA LA SILABA 

110 1F B(POSICION+1)=0 THEN  LET FINFPOSICICN-1: SO 
TO 150 

115 REM BUSQUEDA PARES DE CONSONANTES 

120 IF B(POSICION+2)=1 THEN LET DOBLES=17 

130 1F BíPOSICION+2)=0 THEM LET DOBLES=15 

140 FOR Y=1 TO DOBLES 

150 READ MS 

155 IF AS$(POSICION TO POSICION+1)=M% THEN 69 TO 17 
o 

160 NEXT Y 

165 LET FIN=POSICION: GO TO 190 

170 IF DOBLES=17 THEN LET FIN=POSICION+1 

180 IF DOBLES=1S THEN LET FIN=POSICION-1 

185 REM ESCRIBIR SILABA 

190 IF AS(INICIO)=" " THEN LET INICIO=INICIO+1 
195 PRINT ASCINICIO TO FIN) 

200 RESTORE 

205 REM REPETIR EL PROCESO 

210 LET INICIO=FIN+1 

220 LET POSICION=INICIO+1 

230 IF INICIO<=LEN A$ THEN 50 TO 90 

240 INPUT "OTRA FRASE? (S/M) "3Kk5: IF Ks="S" THEN 
60 TO 20 


NOTAS AL LISTADO: 


12 En las líneas 40 y 190 aparecen expresiones de la forma A$ (X). En otros ordenado- 
res será preciso cambiarlas por MID$ (AS, X, 1). 


2a En las líneas 155 y 195 surgen expresiones de la forma A$ (X TO Y). Estas expresio- 
nes en otros ordenadores deberán sustituirse por MID$ (A$, X, Y—X + 1). 
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DICCIONARIO DE IDIOMAS 


Construir con READ-DATA un pequeño diccionario castellano-francés-in- 
glés, con 8 ó 10 palabras, de forma que dada una palabra cualquiera en uno de 
los tres idiomas se imprima su traducción en los otros dos. 


NOTAS: 


1. Se introducen alternativamente las palabras deseadas en inglés, francés y castellano 
(en nuestro caso 8 en cada idioma), y se busca al azar un número comprendido entre 
1 y 24. Supongamos que el número elegido es j, sij,j + 1 6 j + 2 es múltiplo de 3 
aparece la palabra en castellano, francés o inglés respectivamente. 

2. Si se desea colocar otras palabras en el diccionario, es suficiente modificar la línea 10, 
manteniendo el orden inglés-francés-castellano. 

3. Si se aumenta o disminuye el número de palabras será preciso cambiar las líneas 20, 
30, y 110, sustituyendo el número 24 por el triple de las palabras en castellano. 

4. Si se desea utilizarlo con otros idiomas, será necesario modificar las líneas 140, 150, 
y 160 (además de la 10), cambiando las palabras inglés, francés y castellano por los 
nombres de los nuevos idiomas. 


10 DATA "HOUSE", "MAISON", "CASA", "ONE", "UN", "UNG",” 
BOOK", "LIVRE", "LIBRO", "HORSE", "CHEVAL", "CABALLO", "RE 
D", "ROUGE", "ROJO", "PEACE", "PAIX", "PAZ", "SUN", "SOLEIL 
" "SOL", "TIME", "TEMPS", "TIEMPO" 

12 BORDER 3: PAPER 3: INK 72 CLS 

S POKE 23658,8: RESTORE 

20 DIM A$124,7) 

ZO FOR I=1 TO 24 

40 READ 4$(1) 

50 NEXT 1 

50 INPUT "ESCRIBE UNA PALABRA “",BS 

65 PRINT FLASH 158T 12,12;B$ 

70 IF LEN B$=7 THEN 6509 TO 110 

80 FOR I=1 TO 7-LEN B$ 

90 LET ES$=B3+" " 

100 NEXT 1 
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110 FOR J=1 TO 24 

120 IF B$=94$(J) THEN 60 TO 140 

130 NEXT J3 

133 60 TO 180 

140 1F INT (I/33=/3 THEN PRINT AT 19,05 "FRANCES: 
"5A$(J-1): PRINT AT 21,053" INSLES: ";4%(J-2) 

150 1F INT ((I+1)/3)=1(J+1)/3 THEN PRINT AT 19,05"C 
ASTELLANO: "5At$(J+1): PRINT AT 21,05" INGLES: "¡A+tJ— 
1) : 

160 IF INT ((I+2)/3)=(J+2)/3 THEN PRINT AT 19,0;3"C 
ASTELLANO: "353A$(J+2): PRINT AT 21,0; "FRANCES: "548%(J 
+1) 

170 PAUSE O: CLS : 60 TO 50 

180 PRINT "LO SIENTO, PERO NO COMOZCO ESTA PALABRA" 
Ss 60 TO 170 


NOTAS AL LISTADO: 


14: En el Spectrum, es imprescindible al dimensionar las variables alfanuméricas indicar 
su longitud máxima (línea 20); en otros ordenadores esto no es necesario. 


2a En el Spectrum, es preciso el bucle 70-100 para que las respuestas posean el número 
de caracteres indicados al dimensionar (7 en nuestro caso). Si estas líneas no figura- 
sen en el programa, el ordenador no consideraría igual una palabra introducida por 
nosotros (p. ej. LIBRO) y la misma palabra almacenada (LIBRO está almacenada con 
7 caracteres: 5 letras y 2 espacios en blanco). 
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APRENDER A SUMAR 


Construir un programa para aprender a sumar. Aparecerán en pantalla entre 
5 y 10 sumandos, y cada uno de ellos tendrá entre 7 y 11 cifras. La presenta- 
ción en pantalla será la usual: 


r“as4d11=23 
13d373n:o 
23442544" 
ddSdd ra 
S133"rr4do3u 
616713:3 
Sus2sscus”7 

A E a 

+ 2142725650 
as”76e 


CORRECTO 


Se preguntará la cifra de las unidades de la suma y se emitirá mensaje de co- 
rrecto o incorrecto (posibilidad de otra respuesta), y así sucesivamente con las 
restantes cifras de la suma. 


NOTAS: 


1. Debido a que el ordenador no admite números de más de 8 dígitos, si no es en nota- 
ción exponencial, se darán los números cifra a cifra (Variable A (J, 1), J = cifras de 
cada sumando, | = número de sumandos). 


2. Se ofrecen únicamente dos oportunidades para acertar cada una de las cifras (línea 
305). 
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9 BORDER S: PAPER S: INK 0: CLS 

10 LET P=INT (6%RND)+5 

20 DIM A(P,11) 

30 FOR J=1 TO P 

20 LET K=INT (S5*RND)+7 

50 FOR I=1 TO K 

50 LET A(3,1)=INT (10%*RND> 

70 IF A(J,K)=0 THEN LET A(J,E)=INT (10%RND): GO T 
70 

30 PRINT AT J,20-I54(J,1)5 

90 NEXT 1 
160 PRINT 
110 NEXT J 
120 FOR B=1 TO 13: PRINT AT P+1,B+5;"-": 
130 PRINT AT P,73"+" 
149 DIM S(12) 
150 FOR J=1 TO 11 
160 FOR I=1 TO P 
170 LET S(J)=S(J)+A(1,3) 
180 NEXT 1 
190 1F S(J)>=10 THEN LET M=INT (S(J)/10): LET S(J) 
=3 (J)-M*10: LET S(J+1)=S(J+1)+M 

200 NEXT J 

210 FOR Y=12 TO 1 STEP -1 

220 IF S(Y)<>0 THEN LET R=Y: GO TO 240 

230 NEXT Y 

240 FOR L=1 TOR 

250 LET N=0 

260 INPUT (“DE DERECHA A IZQUIERDA, DAME LA CIFR 
A QUE OCUPA LA POSICION "3L)>,C 

270 LET N=N+1 

280 IF S(L)=C THEN PRINT AT 16,10; "CORRECTO 
": PRINT AT P+2,20-L3C:z PAUSE 100: PRINT £T 15,10 
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Pa 
"Y 
> 
pe 
1d 


1d 


300 1F S(L)<>C AND N=2 THEN PRINT AT 16,105 FLASH 
1;5"NO SABES SUMAR. ERA "3S(L): 6D TO 320 
305 IF S(L)<>C THEN PRINT AT 16,105" INCORRECTO 
": PAUSE 100: PRINT AT 16,105" INTENTALO OTRA VEZ 
“: GD TO 260 
310 NEXT L 
¿20 INPUT "OTRA SUMA? (S/N; "As 
330 IF A$<>"S" AND A$<>"N" THEN 60 TO 22 
340 IF A$="S"” THEN RUN 
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5 


CALCULOS NUMERICOS 
Y MATEMATICOS 


PROBLEMA DE BABBAGE 


Babbage, considerado el padre de los ordenadores, propuso en 1837 el si- 
guiente problema: 


Hallar el menor número cuyo cuadrado termina en 269696. 
Babbage creía que dicho número era 99736, sin embargo se equivocó. 
Obtener dicho número. 


NOTA: 


1. El programa podría hacerse utilizando un bucle que comprobase con todos los 
números comprendidos entre la raíz cuadrada de 269696 y 99736; sin embargo, 
este algoritmo es muy lento. 

El algoritmo seguido es considerar el cuadrado del número buscado como una cadena 
acabada en 269696, a la que vamos añadiendo números a su izquierda hasta encon- 
trar un cuadrado perfecto. 


7 5LS 

10 LET A=1 

15 PRINT AT 10,6;"ESPERA DOS MINUTOS" 

20 LET B$=STR$ A+" 2696596" 

30 LET C=SOR (VAL B*) 

40 IF ABS (C-INT (C+.5))<=.0001 THEN PRIMNT AT 1 
Os3”"EL NUMERO BUSCADO ERA *3C””* "SU CUADRADO ES ":2% 
STOP 

30 LET A=A+1: GO TO 20 


Ó, 


NOTA AL LISTADO: 

En la línea 40 se considera C + 0,5 con objeto de redondear. Por otra parte, debido al 
cálculo por aproximaciones es necesario colocar ABS(C — INT (C + 0,5)) < = 0.0001 en 
lugar de C= INT (C + 0,5). 
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LOS PROBLEMAS DE INAUDI 


Inaudi, nacido en la segunda mitad del siglo XIX, fue uno de los más famo- 
sos calculadores prodigio. Tardó unos 3 minutos en resolver cada uno de estos 
dos problemas: 

— Hallar 3 enteros positivos distintos cuya suma es 43, siendo la suma de 

sus cubos 17299. 
— Hallar 4 enteros positivos distintos de forma que la suma de sus cuadra- 
dos sea 1341 1. 


Construir un programa que resuelva estos dos problemas. 


NOTAS: 


1. El primero de los dos problemas tiene solución única. 

2. Inaudi encontró para el segundo problema una solución. Con el programa hallaremos 
8 soluciones; si se quiere obtener todas las posibles quitar la línea 270 y modificar 
la 250 (impresión de los resultados). 

3. Como el ordenador calcula por aproximaciones, consideraremos que dos números son 
iguales cuando se diferencian en menos de una milésima (línea 235). 

4. Por la misma razón al utilizar la parte entera es necesario redondear con 0.5 (línea 
235). 


Y BORDER Si: PAPER S: INK Os CL5 
10 PRINT AT 1,253"PRIMER PROBLEMA" 
20 FOR X=1. TO ING (172299 *":21732) 
25 FOR Y=X+i TO INT (17299 (1/33) 
30 PRINT AT 3403143" “3 Y3" * 

40 LET Z=43-X%X-Y: 1F Z>INT (172997 
¿ií=Y TREN 59 TO 100 

FO. TF ABS. LA SPSS 11277770. 3- THEN 60 TO 1 
30 PRINT — INVERSE 1548T 5,83X3" ”; : 


e 


11/3325 OR Z<=X OR 


o 


100 NEXT Y 
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110 NEXT X 

120 PRINT AT 10,53 "PULSA UNA TECLA": PAUSE 9: CLS : 
GO TO 200 

200 PRINT AT 0,25 "SEGUNDO PROBLEMA": LET M=0 

210 FOR A=1 TO SOR 13411 

220 FOR B=A+1 TO SOR (13411-AxA:; 

230 FOR C=B+1 TO SQF (1:411-—B+*B) 

232 PRINT AT 2,8343" "3B3" "3C3"” Bl 

2359 LET Z=AXA+PBAB+CXAC: IF ABS (INT (SOR (13411-Z3w+. 
3)-SOR (13411-Z))>.001 THEN 60 TO 290 

240 LET D=INT (SOR (13411-Z)+.5): 1F Di=A OR D<=BE () 
R D<¿=C THEN G0 TO 290 

250 LET M=M+1: PRINT  INVERSE 15AT 4+2M,953A:3" "3B3 
0] "3C3" "310 

270 1F M=8 THEN STOP 

290 NEXT C 

300 NEXT B 

310 NEXT A 
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SIMPLIFICACION ERRONEA 


Un alumno al pedirsele simplificar la fracción 2666/6665 dio el siguiente 
razonamiento: 

Los tres 6 del numerador se simplifican con los del denominador, por tanto, 
2666/6665 = 2666/6665 = 2/5. 

Aunque el razonamiento es evidentemente incorrecto, la respuesta es total- 
mente correcta. Hallar las fracciones del tipo: 


ALLA IL 


que admiten la simplificación anterior, con X, Y, Z distintos. 


NOTAS: 


1. Basta considerar X menor o igual que 4, ya que para valores superiores no se obtiene 
solución (línea 20). 

2. Consideramos un máximo de 6 dígitos, además de X ó Z, con el fin de no complicar 
el programa. 


3. Por causa del cálculo aproximado al operar consideraremos que los dos números son 
iguales cuando se diferencien en menos de una diezmilésima. 


G BORDER 4: FAPER 4: INK O: CELS 
10 LET N=0 
13 POKE 23692, 233 
ZO FOR X=1 TO 4 
30 FOR Y=1 TO Y 
359 IF X=Y THEN 60 TO 10 
40 FOR Z=1 TO 9 
50 IF Z=X OR Z=Y THEN $50 TC 120 
609 LET NU=X: LET DE=Z 
70 FOR A=1 TO 6 
30 LET NU=Y+iCNU 
FO LET DE=DE+10”"Ax*Y 
100 IF ABS (MU/DE-X/7)<0.0001 THEN LET N=N+1: PRIN 
T N53TAB 43NU5"/"5DE: BEEP 1,1. 
110 NEXT A 
120 NEXT Z 
130 NEXT Y 
140 NEXT X 


PERSISTENCIA 


Dado un número de varias cifras, multiplicamos éstas y luego las del pro- 
ducto obtenido. Reiteramos el proceso hasta obtener un producto de una única 
cifra. Se llama persistencia del número inicial al número de multiplicaciones ne- 
cesarias para obtener un producto de una única cifra. 

Los números más pequeños de persistencia 1, 2, 3 y 4 son respectivamente 
10, 25, 39 y 77. Hallar los números más pequeños de persistencias 5 y 6 (se 
puede continuar con 7, 8, etc pero se tarda bastante tiempo). 


NOTA: 


1. 


Las sucesivas multiplicaciones de las cifras de los números resultantes se obtienen 
mediante una subrutina (líneas 200-270). 


BORDER 3: PAPER 3: INK 7: CLS 
LET PE=1 

LET NM=10 

LET N$=STR$ N 

G0 SUB 200 

IF P=PE THEN BEEP 1,1: PRINT AT PE, 13PE5" "5N:z 


PRINT : LET PE=PE+1 


NOTA 


PRINT AT 12,12;3N 
LET N=N+1 

GO TO 60 

LET P=0 

LET PR=1 

FOR X=1 TO LEN Ns 

LET PR=PR*VAL N$(X2 

NEXT X 

LET P=P+1 

IF PR>9 THEN LET N$=STR% FR: GO TO 210 
RETURN 


AL LISTADO: 


En la línea 230 figura N$ (X); en otros ordenadores colocar en su lugar MIDS (N$, X, 1) 


112 


ECUACION DE PRIMER GRADO 


Construir un programa que nos resuelva cualquier ecuación de primer gra- 
do. La incógnita X puede surgir varias veces en ambos lados de la igualdad, pero 
no en el denominador. 


NOTA: 


1. El algoritmo para obtener la solución es el siguiente: 
Pasamos todos los términos de la ecuación a un lado. Obtenemos el valor de la expre- 
sión para X=0 y X = 1, respectivamente P y O. 
La solución es P/(P—Q), siempre que PX4 O. 


9 BORDER 4: PAPER 4: INK Oz CLS 
10 INPUT "ESCRIBE LA ECUACION. LLAMAR X A LA VARIA 
BLE ",,A$ 
20 PRINT As$ 
30 REM PASAMOS TODOS LOS TERMINOS DE LA ECUACION A 
UN LADO DE LA IGUALDAD 
40 FOR I=1 TO LEN As 


30 IF A$(1)="=" THEN LET AS$=A$( TO 1-1)+"-("+4$ (1 
$1 710. 1+")"0 60 10.70 
60 NEXT 1 


70 REM OBTENEMOS LA SOLUCION 

80 LET X=0: LET P=VAL AS 

90 LET X=1: LET O=VAL As 

95 IF P=0 THEN PRINT "ERROR"””: GO TO 10 
100 PRINT "SOLUCION: "3P/(P-Q)?? 

110 GO TO 10 | 


NOTA AL LISTADO: 

En la línea 50 aparece A$ (I) que, en otros ordenadores, debe sustituirse por MIDS$ 
(AS, 1, 1). Además, en la misma línea surgen A$ (TO | — 1) y AS (1 + 1 TO) que, para otros 
ordenadores, deben sustituirse por LEFT $ (A$, I—1) y RIGHTS (AS,LEN AS — 1). 
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FACTORIAL DE CUALQUIER NUMERO 


Recordemos que el factorial de un número n es el producto de todos los 
enteros positivos inferiores o iguales a él, es decir: 1. 2. 3.... (n—1)n. 


Si queremos calcular directamente, con un bucle, el factorial de un número, 
el máximo valor posible es n = 34 y, con todas sus cifras, sólo hasta n = 11 pués 
en los demás se imprime en notación científica. 


Construir un programa que calcule el factorial de cualquier número con 
todas sus cifras. 


NOTAS: 


1. La idea para desarrollar el programa es considerar como cadenas los diversos produc- 
tos que vayamos obteniendo (descomponer en grupos de 4 cifras cada factorial y 
multiplicar parcialmente). 


2. El programa es lento si se consideran números muy grandes; p. ej.: si n = 70 tarda 
unos 4 minutos y si n = 300 unos 80 minutos. 


3, Si realiza el programa siguiendo otro algoritmo, a continuación tiene dos ejemplos 
numéricos para comprobarlo: 


“a! 1137557 1566339503331 TS6072rS3 2 
16339035 7364d=33533314d25d64d2 35 TDS 
S6xccdeESada aa 7510403135300 Uan 
ps a Ns a) 

1 33315443304 d1320635150 2912305 
o E AE SA E A Y e OS e 
E: == 1757993923322 3321260S5=23414d6337 
Es ke 132303623369 7220327223" 5S52S11 
a 21838442220 acda aa aaa aaa EA aa 
A 


9 BORDER 4: PAPER 4: INK O: CLS 
10 INPUT "NUMERO "¿N 
153 PRINT : PRINT : PRINT N;"!="; 
20 LET A$="1" 
30 FOR X=1 TO N 
40 LET M$=A%: GO SUB 330: LET At=M$ 
60 LET L=INT (LEN At/4+.0005) 
70 DIM B$(1+2,4): DIM J(L+2) 
80 FOR Y=1 TO L 
GO LET B+*(Y)=A5$ (LEN At-4*Y+1 TO LEN AS-4+* (Y-1)3) 


100 
110 
116 
118 
120 
125 
130 
132 
136 
150 
155 
150 
170 
180 
181 
182 

="g" 

="g" 
183 
185 
190 
200 
540 
350 

“+M$: 

360 


NEXT Y 

FOR Y=i TO L+1 

IF B$(Y)=" " TREH  LET VALECR=0 

IF BSIVI<>” "* THEN LET VALOR=VWAL BS (Y> 


LET C$=STR$ (X*VALOR+J (Y) ) 

LET MS=C$%: 60 SUB 530: LET C$=M$ 

LET B$(Y)=C$ (LEN C$-3 TO ) 

IF LEN C$=4 THEN G0 TO 150 

LET J(Y+1)=VAL C$( TO LEN C$-4) 

NEXT Y 

LET As$="" 

FOR Y=1 TO L+1 

LET A$=B$ (Y)+A$ 

NEXT Y 

FOR Z=1 TO LEN A$ 

IF A$(Z)="1" OR A$(Z)="2" OR A$(Z)="3" OR ABIZ) 
OR A$(Z)="5" OR A$(Z)="65" DR A$(Z)="7" OR AS1Z) 
OR A$(Z72)="9" THEN LET A$=0$(Z TO >): GO TO 185 
NEXT Z 

NEXT X 

PRINT As 

60 TO 10 

LET RESTO=LEN M$-4*INT (LEN M$/4+.0005) 

IF RESTO<>0 THEN FOR K=1 TO 4-RESTO: LET Mé="0 
NEXT K 

RETURN 


NOTAS AL LISTADO: 


a 


2a 


3a 
qa 


En el Spectrum es preciso especificar (línea 70) la longitud máxima de la cadena, que 
en nuestro caso es 4 pues descomponemos los números en grupos de 4 cifras. En 
otros ordenadores ésto no es necesario. 


Veamos una serie de expresiones que son válidas para el Spectrum y que deben ser 
cambiadas en otros ordenadores: 
(línea 90) expresión del tipo A$ (P TO OQ) 
sustituir por MIDS (AS, P, O—P + 1) 
(líneas 130 y 182) expresiones del tipo C$ (P TO) y A$ (Z TO) 
sustituir por RIGHTS (C$, LEN C$—P + 1) y 
RIGHTS (A$, LENAS — Z + 1) 
(línea 136) expresión del tipo C$ (TO OQ) 
sustituir por LEFTS (C$, Q) 
(líneas 90 y 170) expresión del tipo B$ (Y) 
sustituir por MIDS (AS, Y, 1) 


Al imprimir, bucle 181-183, quitamos los ceros de la izquierda. 


Si obtenemos como producto parcial un número de menos de 4 cifras (línea 550) 
completamos éste con ceros a la izquierda. 
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POLIGONOS REGULARES 


Dibujar cualquier polígono regular de n lados y calcular su área dada la 
longitud del lado. Por ejemplo: 


POLIGONO REGULAR DE A Laos. 
LADO 1a AREA di. Qi" 
dd 
FOLIGONO REGULAR. CE. LS. LACOS 
LADO 10 ARER 172.44 770 
a y 
e 
AS 
e 
E 
> 
7d 
PA , , A 


NOTAS: 


1. El área de un polígono regular de N lados, de longitud L es: 
N. L2/4 tang (PI/N) 
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2. A partir de N = 15 la gráfica del polígono se confunde con una circunferencia a causa 
de la resolución del ordenador. 


G BORDER 4: PAPER 4: INX O: CLS 

10 INPUT "NUMERO DE LADOS DEL POLIGONO "53N:s 1F N<S 
THEN 650 TO 10 

20 INPUT "LONGITUD DEL LADO “sL: TLS 

30 REM CONSIDERAR QUE EL RADIO DEL PCLIGONG ES 79, 
PARA ASI OBTENER UN DIBUJO NITIDO 

40 PLOT 197,80: LET A=197: LET B=30 

50 REM RESTAMOS UNA MILESIMA PARA COFRESIR EL ERRO 
? DE CALCULO QUE SE TIENE AL TRABAJAR CON DECIMALES 

60 FOR M=2*P1/N TO 2x*P1/N+2*P1-.001 STEF 2%PI/N 

ZO LET X=127/+70*C05 M: LET Y=80+70X*SIN M 

80 DRAW X-A,Y-B: LET A=X: LET B=Y 

790 NEXT M 
100 PRINT "POLIGONO REGULAR DE "3N3" LADOS" 
110 PRINT "LADO "5L,"AREA "3N*L+*L/ (47 AN (PI/N)) 
120 60 TO 10 
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PI SEGUN VIETA 


Calcular el valor de PI según la fórmula de F. Vieta, abogado y matemático 
francés del siglo XVI: 


2212), V2+y42. 12442 +yY72 . 
2 


Z 
PI 2 2 


NOTAS: 


1. Como se puede observar es un proceso iterativo en que aparecen dos sucesiones. 


2. Se efectuarán los diversos productos hasta que dos valores consecutivos de Pl difieran 
entre sí menos que el error admitido. 


G BORDER 4: PAPER 42 INX 7: CLS 

10 INPUT "ERROR ADMITIDO ";E 

15 LET PROD=1 

ZO LET P=0: LET O=1 

30 LET P=(2+P3*,3 

40 LET QO=0%*P/2 

50 LET X=2/0 

60 LET P=(2+P3*.5 

70 LET QO=0x*P/2 

80 LET Y=2/0Q 

85 LET PROD=PROD+1 

90 IF ABS (X-Y)<E THEN PRINT AT 10,05"VALOR DE PI 
:"3Y: PRINT AT 20,05 "PRODUCTOS EFECTUADOS: "PROD: PA 
USE Oz RUN 

100 GO TO 30 
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FUNCION DE DISTRIBUCION 


Se llama función de distribución de una variable aleatoria a la función que 
asigna a cada valor de la variable la probabilidad de que ésta tome un valor 
menor o igual al dado. 


Dos de las distribuciones más estudiadas son la binomial y la normal tipifi- 
cada. Hacer un programa que permita calcular la función de distribución de 
cualquiera de las dos. 


NOTAS: 


1. Este programa es únicamente para interesados en Estadística. 


2. La integral que aparece en la distribución normal tipificada se calcula dividiendo el 
intervalo en 1000 partes. 


3 BORDER 4: PAPER 4: INK Oz CELS 


10 INPUT "OPCIONES: 1 DISTRI 
BUCION BINOMIAL 2 DISTRIBUCION NORMAL TIPIFI 
CADA";0 


0 1F O=1 THEN 60 TO 100 

30 IF O=2 THEN GO TO 300 

40 60 TO 10 

100 INPUT "NUMERO DE FRUEBAS "3¿N 

110 INPUT "PROBABILIDAD DEL SUCESO "¿P: 1F P>1 THEN 
GO TO. 110 

120 INPUT "VALOR DE LA VARIABLE "3X 

130 LET M=(1-—P)"N 

140 FOR Y=1 TO X 

150 LET F=1 

150 FOR T=N TO N-Y+1 STEP -1 

170 LET F=Fx*T 

130 NEXT T 

1909 LET D=1 
200 FOR M=Y TO 1 STEP -1 
210 LET D=D+*M 
220 NEXT M 
230 LET A=F*(P"Y)x((1—-P)“(N-Y)3>/D 119 


240 LET M=M+A 

250 NEXT Y 

252 PRINT "NUMERO DE FRUEBAS "iN 

254 PRINT "PROBABILIDAD DEL SUCESO ";P 

256 PRINT "VALOR DE LA VARIABLE "3X: PRIN: 

260 PRINT "LA FUNCION DE DISTRIBUCION BINOMIAL 
ES: "3M 

270 STOP 

300 LET S=.5 

310 INPUT "EL FARAMETRO ES? "3Z 

315 PRINT "ESPERA 3.0 4 MINUTOS" 

320 FOR T=0 TO Z STEP Z/1000 

330 DEF FN A(T)=(EXP (£-TXT/2))/1(2x*P1)7".5) 

340 LET S=S+FN A(T+Z/2000)*Z7/1000 

350 NEXT T 

335 CLS 

360 PRINT "LA FUNCION DE DISTRIBUCION NORMAL T 
IPIFICADA DE PARAMETRO —"3Z3" ES: "iS 

370 STOP 
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ESPIRAL DE ARQUIMEDES 


Arquímedes, en su obra “Sobre las espirales”, estudia exhaustivamente és- 
tas. Por vez primera conocida, se dibuja y estudia la curva cuya ecuación en 


coordenadas polares es: 
P=R-w 
y en cartesianas: 


x=RK- cos w 
y=R-:senw 


Esta curva se denomina desde entonces espiral de Arquímedes. 
Construir un programa que la dibuje, dando el radio inicial y el incremento 


entre vueltas sucesivas. Por ejemplo: 


RADICO 14 IMEREMENTO Su 
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RD IO E o IE RE MENTA 


...” Ta 
pr > e a '., +, j 
PA a L o E *, 
F, ES e. is *s, a % 
' E o A » , 4 A 


NOTA: 


1. Para calcular el número de vueltas dividimos una zona de media pantalla (88-R) entre 
el incremento que existe entre vuelta y vuelta (línea 30). 


S BORDER 6: PAPER 6: INK O: CL5S 

10 INPUT "RADIO INICIAL "3¿R 

20 INPUT "INCREMENTO ENTRE VUELTAS "31: CLS 
30 LET VUELTAS=INT ((88—R)/1) 

40 IF VUELTAS<i THEN 60 TO 10 

50 PRINT AT 0,05"RADIO "5%,"INCREMENTO "351 
60 FOR A=0 TO 2%PIXVUELTAS STEP FI/(2*I*VUELTAS) 
7O LET R=R+1/4/VUELTAS 

80 PLOT 127+R*COS A,87+R*SIN A 

90 NEXT A 
100 60 TO 10 


122 


CAPICUA 


Construir un programa para averiguar si un número es capicúa o no. Un 
número.se dice capicúa cuando se lee igual de derecha a izquierda que de iz- 
quierda a derecha. 


NOTAS: 


1. El programa está desarrollado siguiendo tres posibles algoritmos. El ordenador ele- 


pa pr 
Ma Rd CN 


pol pana 


girá uno cualquiera al azar (línea 10). 


. Primer algoritmo: manejamos números con un máximo de 8 cifras. Calcularemos sus 


cifras obteniendo los restos de las sucesivas divisiones por las potencias de 10. 
Este método, además de ser un tanto complicado no tiene una fiabilidad total, ya 
que el ordenador efectúa los cálculos por aproximación (línea 70). 


. Segundo algoritmo: Se considera el número como una cadena. A partir de ella se ob- 


tiene otra formada por las cifras del número en orden inverso. El número será capi- 
cúa cuando ambas cadenas sean iguales. 


. Tercer algoritmo: Se considera nuevamente el número como una cadena, en la que 


comparamos el primer y último carácter; si son distintos no es capicúa si son iguales 
se prueba con los siguientes. 


. Los dos últimos algoritmos son mucho más sencillos y fiables que el primero, admi- 


tiendo además dos posibilidades: i) manejar números de más de 8 dígitos, ¡¡) buscar 
palíndromos, como p. ej.: “OSO”, “RECONOCER”, “ATAR AL RAEDOR Y RO- 
DEAR LA RATA” 


EDRDER 63 PAPER 67 INK OS CELS 

ET R=3%RND 

1F Re=2 THEN SO TO 150 

IF Ro=1 THEN GO TO 250 

INPUT "ESCRIBE UN NUMERD ENTERD. MAXIMO 3 


CIFRAS ",M: PRINT N; 


20 
ZO 
40 
30 


£0 


FOR X=1 TO 8 

IF N/(10*X)<1 THEN LET L=X: GO TO SO 

NEXT X 

IF L=1 OR L=0 THEN PRINT " CAPICUA": GO TOD 16 
LET ULTIMO=INT (N/ (107 (L-1)3)> 
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70 LET PRIMERO=INT (.S+N-INT (N/10)x10) 

320 IF ULTIMOX<>PRIMERO THEN PRINT ”" NO CAPICUA": GE 
OC TO 10 

790 LET N= (N—-PRIMERD-ULTIMO*10” (L-1))/10 

100 60 TO 20 

150 INPUT "ESCRIBE EL NUMERO "34%: PRINT A$; 

150 LET Bs$="" 

170 FOR I=LEN AS TO 1 STEP -1 

180 LET B3=25$+4$(1) 

190 NEXT 1 

200 1F AS$=B$ THEN PRINT * CAPICUA": 69 TO 10 

210 PRINT " NO CAPICUA”": GO TO 10 

250 INPUT “ESCRIBE EL NUMERO "5A%: PRINT At; 

256 FOR I=1 TO LEN AS/2 

270 1F ASC(II<>AR(LEN A$-1+1) THEN FPRINT * NO CAPIC 
119": GO TO 10 

280 NEXT 1 

290 PRINT " CAFICUA": 60 TO 10 


NOTA AL LISTADO: 


En las líneas 180, 270 y 280 aparecen expresiones de la forma A$(X). En otros ordena- 
dores deben sustituirse por MIDS$ (A$, X, 1) 
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MULTIPLICACION PRIMA 


En la siguiente multiplicación todos los interrogantes son números primos 
de una cifra y distintos de 1. 


E E E 
NO AE NS: AE 4 


Construir un programa que los encuentre. 


NOTAS: 


1. Los únicos primos de 1 cifra y distintos de uno son: 2, 3, 5, 7. 


2. Utilizar una subrutina para comprobar si todas las cifras de las multiplicaciones par- 
ciales y de su suma son primos (bucle 400 — 430) 


3. Para calcular las cifras de las multiplicaciones parciales y de su suma, trabajar éstas 
como cadenas. 


20 BORDER 4: PAFER 4: INK O: CLS 
30 FOR A=2 TO 7 

60 1F A=4 CR A=46 THEN $50 TO 22% 
7O FOR B=2 TO 7 

380 IF B=4 OR B=6 THEN 60 TO 310 
90 FOR E=2 TO 7 | 
100 IF C=4 OR C=á THEN GO TO 300 
110 FOR D=2 TO 7 

120 IF D=4 OR D=6 THEN 60 TO 290 
130 FOR E=2 TO 7 
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140 IF E=4 OR E=6 THEN GO TO 280 

150 LET M=A+10*B+100*C 

155 PRINT AT 8,15;C053B34 

156 PRINT TAB 165E3D 

160 LET Si=M*D: LET S2=M*E: LET S3=S1+10*S2 

170 LET M$=STR$ Sl: GO SUB 400: IF Z=1 THEN 60 TO 
290 

180 LET M4=STR$ S2: 60 SUB 400: IF Z=1 THEN 609 TO 
280 

190 LET M$=STR$ S3: 60 SUB 400: 1F Z=1 THEN 60 TO 
280 | 

200 PRINT TAB 133 "----- a 

230 PRINT TAB 14551 

240 FRINT TAB 13552 

250 PRIMT TAB 133 "---- on 

260 PRINT TAB 13:83 

270 STOP 
2806 NEXT 
290 NEXT 
300 NEXT 
210 NEXT 
320 NEXT 
330 STOP 
200 FOR X=1 TO LEN M$ 

410 IF MS(XO<7"2" AND MS(X)<"3" AND ME(X)<>"5" AND 
M$00<>"7" THEN LET Z=1: RETURN 

420 NEXT X 

430 LET 7=0: RETURN 


DamAaam 


NOTA AL LISTADO: 


En la línea 410, la instrucción M$ (X) deberá sustituirse en otros ordenadores por 
MID$ (MS, X, 1). 
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AREAS SEGUN MONTECARLO 


Vamos a calcular el área limitada por la gráfica de una función continua y 
no negativa en un intervalo [a, b]. 


El método a seguir es el llamado método de Montecarlo, que está basado en 
el azar: 


Sea la función fUx) definida en el intervalo [a, b] y sea M el valor máximo 
de la función en dicho intervalo: 


ps A e RM TT 
pad nar : 


¿tt 
¿8% 


A A A A rc erro 


Tomamos al azar N puntos del rectángulo ABRS, sean el número de puntos 
que se encuentran bajo la curva, entonces se tiene que 


(b—=a):M:n 
N 


AREA = 


NOTAS: 


1. Se pedirá la función, los extremos del intervalo y el número de puntos a considerar. 


2. Tomando valores muy próximos, a lo largo del intervalo de definición, calcularemos 
el valor máximo que alcanza la función (líneas 90-120). 


3. Para comprobar el programa se pueden utilizar los siguientes ejemplos: 
f (x) =SIN x en [0, Pl], el área es 2 
f(x) =4x — x? en[0,4], el área es 32/3 
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S BORDER 4: PAPER 4: INK O: CELS 

10 PRINT "TECLEA A CONTIMIJACION " 

20 PRINT AT 3,03"5S0 DEF FN Y(X3=..... AQUI TECLEA 

LA FUNCION....” 

30 PRINT AT 10,3;3"UNA VEZ DEFINIDA LA FUNCION 
TECLEA RUN 50" 


406 STOP 
60 CELS 
7O INPUT "EXTREMO INFERICRK DEL INTERVALO? "¡A 
75 INPUT "EXTREMO SUPERIOR DEL INTERVALO? ";B 


80 INPUT "CUANTOS PUNTOS AL AZAR DESEAS CONSIDER 
AR "iN 

85 PRINT "EL AREA DE LA FUNCION ES" 

388 PRINT FLASH 15AT 8,45"ESPERE UN MOMENTO" 

89 REM CALCULO DEL MAXIMO VALOR DE LA FUNCION 

90 LET M=0 

100 FOR X=A TO B STEP .0S 

110 IF FN Y(X)>2M THEN LET M=FN Y (Xx) 

120 NEXT X 

125 REM CALCULO DEL AREA 

130 LET P=0 

140 FOR I=1 TO N 

150 LET X=(B-A? *RND+A 

150 LET Z=MweRND 

170 IF Z<FN Y(X) THEN LET P=2+1 

180 NEXT 1 

¿00 PRINT FLASH O5AT 8,43 (B-A)xM*P/N3 " 

210 INPUT "DESEA ESTUDIAR LA MISMA FUNCION S/N”,As$ 

IF A$="S" THEN 60 TO 560 
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CALCULO DE AREAS SEGUN SIMPSON 


Sea una función fx) positiva definida en un intervalo [a, b] y continua. 


Vamos a calcular el área limitada por la gráfica de la función, el eje de abci- 
sas y las ordenadas en a y b, según el método de Simpson: 


Dividimos el segmento [a, b] en K (número par) partes iguales, obteniendo 
así los puntos X 1, X2,..., Xk.1. El área es; 


eS (f(a) + 4f Cs) + 2f (x2) + IFEX) Ed 2f (Xx-2) ds 


+ IF (xx. 1) + F(b)) 


NOTA: 


1. Se pedirá el número de divisiones y cuanto mayor sea éste, mejor será la aproxima- 


ción. 
GS BORDER SS: PAPER 5: 1INX Oz CLS 
iO PRINT "TECLEA A CONTINUACION" 
¿20 PRINT AT 5,0350 DEF FN YiX)=..... AQUI TECLEA 


LA FUNETON....” 
30 PRINT AT 10,13"UNS VEZ DEFINIDA TECLEA RUN S0" 


50 CLS 

70 INPUT "DAME EL EXTREMO INFERIOR DEL INTERVYA 
LO",A i 

72 INPUT "DAME EL EXTREMO SUPERIOR DEL INTERYA 
Lo",B 

30 INPUT "MUMERO DE DIVISIONES DEL INTERVA 
LBS, K 

90 LET S=0 

100 FOR I=1 TO K-1 STEP 2 

110 LET S=S+4x*FN Y(A+I*(B-8)/K) 
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120 NEXT 1 

130 FOR I=2 TO K-1 SIEP 2 

140 LET S=S+2*%FN Y(A+TACB-A)/K) 

150 NEXT 1 

160 PRINT "EL AREA ES " 

170 PRINT AT 11,103 (B-A8)*(FN Y(A)+FN Y1(B)>)-S)/ (3x*K) 

180 INPUT "DESEA ESTUDIAR LA MISMA FUNCION S/N ",A 
$: IF A$<>5"S" THEN RUN 

190 GO TO 70 


130 
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EXCLUSIVOS DEL 
SPECTRUM 


REENUMERADOR 


Construir un programa que nos sirva para reenumerar las líneas de un pro- 
grama cualquiera y, para no complicarlo en demasía, no modificar los números 
que hay tras un GOTO o un GOSUB. 


Evidentemente, este programa es válido únicamente para el Spectrum. 


NOTAS: 


1. El programa, una vez realizado, se almacenará en casete y, cada vez que se necesite, se 
cargará con MERGE y luego introduciremos GOTO 9991. 


2. Al principio del programa se preguntará qué número se le asigna a la primera línea de 
programa y también cuál es el incremento deseado entre líneas, reenumerándose to- 


9990 
9991 
A LA 
2992 
, INC 
9993 
99394 
9996 


das las líneas del programa excepto 


las de la rutina. 


. Como curiosidad, una vez ejecutado el programa se puede considerar como número 


de la primera línea el cero y obtendremos así una línea O cuasiimborrable. También 
es factible obtener listados anormales, que siguen funcionando, considerando como 
incremento O ó números negativos. Por ejemplo, se puede conseguir el siguiente 


listado: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


pa 
co 


S+0F 


INPUT "CUAL ES EL NUMERO QUE DESEAS 


PRIMERA LINEA -DEL 


"PEDRO" 
"IGNACIO" 
"YICENTE” 
"VICENTE" 
"IGNACIO" 
"PEDRO" 


PRESRAMA ",PRI 


ASIGNAR 


INPUT "CUAL ES EL INCREMENTO ENTRE LAS LINEAS ” 


LET A=PEEK 23535+25 
LET B=PRI 
LET C=INT (B/256): 


E A+1,D 
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Sx*PEEER 23636 


LET D=B-256%*C: 


POKE A,C: 


POX 


.. 
is 
de 


9957 LET A=A+4+PEEK (A+2)+2S6*PEEK (+73) 1. PEER 
+1)+256*PEEX M=9590 THEN STOP 
77978 LET B=B+INC: 1F B99939 TEEN STOP 

9999 LET C=INT (B/2563: LET D=B-256*C2z POKE AC: POX 
A+1,D: GO TO 39927 


m 


NOTAS AL LISTADO: 


Analicemos el programa línea a línea: 


Línea 9990. Para evitar introducirnos en la rutina desde el programa inicial. 

Línea 9993. En el Spectrum la dirección de comienzo del programa en BASIC 
ocupa las direcciones 23635 y 23636. Recordar que el número de 
cada línea se almacena en 2 octetos y en los dos siguientes se almacena 
la longitud de la línea. 

Línea 9994. Indica el número de la primera línea. 

Línea 9996. El nuevo número de línea B se almacena en dos octetos C, D (de for- 
ma que B = 256.C + D), en las posiciones A y A + 1 respectivamente. 

— Línea 9997. En la primera parte buscamos la dirección en que se encuentra el nú- 
mero de la siguiente línea. En la segunda evitamos cambiar los núme- 
ros de línea de esta rutina. 

Línea 9998. Se coloca esta línea para evitar efectos indeseados. 


| 
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TRADUCTOR DE LISTADOS 


Dado un programa cualquiera en BASIC obtener su listado con todas las 
instrucciones en castellano o en el idioma que se desee. 


NOTAS: 


1. Este programa es válido únicamente para Spectrum. 


2. Para utilizar el traductor hay que escribir primero el programa a traducir. Una vez es- 
crito (sin utilizar las líneas finales, a partir de la 9978) se carga el programa traductor 
con MERGE. 

Se introduce luego la orden RUN 9979 y automáticamente se lista el programa inicial 
traducido. 

3. Si se desea obtener los listados por impresora basta sustituir todas las instrucciones 
PRINT del programa traductor por LPRINT. 


4. Por ejemplo, este programa, ya traducido al castellano, dibuja una espiral: 


ñ 


e 


¡MS . 1 rro e: 
sá.  bESCE =1 HASTA > 
ZA. LEE A 
¿Aa — MHMUEVETE A.,Q0,- P1 
Ss SIGUIENTE 
Cesa DATOS -2,4,-5,16,-32,64 4, 
a PARATE 
395978 STOP 


9979 DIM L$(91,16): RESTORE 9980 
9980 DATA "NUMERO-AL-AZAR", "TECLAS", "PI", "FUNCION", * 
PUNTO", "PANTALLAS", "ATRIBUTOS", "EN", "TABULA", "VALORA 
$", "CODIGO", "VALORA", "LONGITUD", "SENO", "COSENO", "TAN 
GENTE", "ARCOSENO", "ARCOCOSENO", "ARCOTAMGENTE", "LOG-M 
EPERIANO", "EXPONENCIAL", "PARTE-ENTERA”, "RAIZ-CUADRAD 
A", "SIGNO", "VALOR-ABSOLUTO", "MIRA-EN"”, "PON-EN", "USU£ 
RIO", "FRASES", "CARACTER$", "NO", "BINARIO", "DO", "Y", "<= 


5 AS | ts 
34 E ena 37 ad 
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9981 DATA “LINEA”, "ENTONCES", "HASTA", "INCREMENTA", "D 
EFINE-FUNCION", "CATALOGO", "FORMATO", "MUEVE", "BORRA", 
"ABRER", "CIERRA", "COMBINA", "VERIFICA", "SUENA", "CIRC 
ULO", "TINTA", "PAPEL", "PARPADEA", "BRILLA", "“INYERSO"," 
SOERE IMPRESIONA", "SACA", "IMPRIME", “IMPRIME-LISTA", "P 
ARATE", "LEE", "DATOS", "RESTAURA", "EMPIEZA-DE-NUEYO", " 
EORDE", "CONTINUA", "DIMENSIONA" 

$9€2 DATA "NOTA", "DESDE", "VETE-A", "VE-A-Y-VYUELVE", "P 
REGUNTA", "CARGA", "LISTA", "HAZ", "PAUSA", "SIGUIENTE", " 
COLOCA-EN", "ESCRIBE", "DIBUJA", "EJECUTA", "GUARDA", "HA 
Z-ALEATORIO", "SI", "BORRA-PANTALLA", "MUEVETE”, "BORRA 
VARIABLES", "VUELVE", "COPIA" 

9983 FOR X=1 TO 91 

9984 READ L$(X) 

9985 NEXT X 

9786 LET A=PEEK 236733+256x*PEEK 23636 

2987 LET B=2S6*PEEK A+PEEK (M+1) 

9788 IF B=9978 THEN STOP 

99392 LET LONG=LEN STR$ B 

9990 PRINT TAB (4-LONG);B3" "32 LET A=9+4 

9791 1F PEEK A=12 THEN PRINT : LET A=4+1: 50 TO 928 
i 

99792 1F PEEZEK A>=155 THEN LET M=0: 60 TO 9954 

9993 50 TO 9998 
9994 FOR Y=1 TO 
9995 IF L$(PE 
9995 MEXT Y 
9997 PRINT " "3L$(PEEK A-154)( TO LEN (L$(PEEK A-164 
))-M)3: LET A=A+1: SO TO 9991 
9998 1F PEEK A=14 THEN LET fAi=A+6 
9999 PRINT CHR$ PESK Aj: LET A=a+ 


mm 
PS 


164) (Y)=" * THEN LET M=M+1 


< 60 TC 9991 
is 60-10 9791 


NOTA AL LISTADO: 


Tengamos en cuenta, en primer lugar, que todas las instrucciones que deseamos traducir 
tienen su código ASCII! comprendido entre 165 (RND) y 255 (COPY). Hay por tanto 91 
instrucciones a traducir. Comentemos ahora el programa línea por línea: 


— Línea 9978. Ponemos STOP para evitar que por descuido nos introduzcamos en el 
traductor a través del programa inicial. 

— Línea9979. Dimensionamos el nuevo nombre de las instrucciones. Hay 91 y supo- 
nemos que su longitud máxima es 15. Si se desea denominar a las ins- 
trucciones con nombres de mayor longitud se deberá modificar el se- 
gundo número de la dimensión. 
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Líneas 9980, 9981, 9982. En estas líneas se almacena la traducción de las 91 instruc- 


ciones. Se pueden modificar a gusto del usuario, escribiéndose en otro 
idioma si así se desea. Tener en cuenta la longitud de los nuevos nom- 
bres, ya que si se superan los 15 caracteres será preciso cambiar la lí- 
nea 9979, como ya se ha indicado. 


Líneas 9983, 9984, 9985. Con este bucle se leen los nombres traducidos de las 91 


Línea 9986. 
Línea 9987. 
Línea 9988. 


instrucciones. Como se observa, el nombre de cada una viene dado por 
la variable dimensionada L$ (). 

Leemos la dirección del principio del programa dado en BASIC. 
Obtenemos el número B de cada una de las líneas del programa. 

Si la línea que debemos traducir es ya la primera del programa traduc- 
tor éste se detiene. 


Líneas 9989, 9990. Imprimen el número B de cada línea del programa. Evidentemen- 


Línea 9991. 


te, hay que tener en cuenta que el número de las líneas puede tener 
hasta 4 dígitos. 

Se estudia la posibilidad de llegar al final de una línea. Recordar que el 
código de ENTER es 13. 


Líneas 9992, 9994, 9995, 9996, 9997. Se analiza el caso en que aparezca una instruc- 


Línea 9993. 


Línea 9998. 


Línea 9999. 


ción a traducir. El bucle 9994-9996 permite una correcta presenta- 
ción, ya que en cada instrucción se evita imprimir los espacios en blan- 
co (M es su contador) asignados por el método procrusteano a todas 
las palabras con menos de 15 caracteres. 

Es un salto que permite continuar la traducción cuando el carácter es 
normal pues su código, que viene dado por PEEK A, es inferior a 165. 
Se recoge la posibilidad de que nos encontremos con un número. Re- 
cordar que su código es 14 y que dicho número viene dado en binario 
por 5 bytes. 

En esta última línea se imprimen los caracteres normales, que tienen 
su código inferior a 165. 


44 SUPERPROGRAMAS EN BASIC 


Válidos para todos los ordenadores, 
incluyen desde los juegos más divertidos: 


— Barcos 
— Golf 
— Black NETAS 


hasta programas con aplicaciones educativas: 
— Química 
— Gráficas 
— Sílabas 
— Cálculos numéricos 
y matemáticos 
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